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

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