X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=blobdiff_plain;f=PowerDns.hs;h=165b80ed5303681b0c63c0e82f8a2b36b1371ca4;hp=cb685dd4e96fadfb9e83359568365e46c5d7ddde;hb=b0c8a2dae29482014bcb8794a18c0aef24abe683;hpb=b2f5f20509c12bb94783f7035042aed1e0d99c58

diff --git a/PowerDns.hs b/PowerDns.hs
index cb685dd..165b80e 100644
--- a/PowerDns.hs
+++ b/PowerDns.hs
@@ -63,5 +63,8 @@ pdnsParse ver s =
                                             })
       _                         -> Left $ "Unparseable PDNS Request: " ++ s
 
-pdnsOut :: RRType -> NmcDom -> String
-pdnsOut _ d = show d
+pdnsOut :: Int -> RRType -> Either String NmcDom -> String
+pdnsOut ver _ d =
+  case d of
+    Left  err -> "LOG Error: " ++ err ++ "\nFAIL\n"
+    Right dom -> "DATA\n" ++ (show dom) ++ "\nEND\n" --FIXME