]> average.org Git - pdns-pipe-nmc.git/commitdiff
cosmetic
authorEugene Crosser <crosser@average.org>
Sat, 29 Mar 2014 21:36:53 +0000 (01:36 +0400)
committerEugene Crosser <crosser@average.org>
Sat, 29 Mar 2014 21:36:53 +0000 (01:36 +0400)
PowerDns.hs
pdns-pipe-nmc.hs

index 165b80ed5303681b0c63c0e82f8a2b36b1371ca4..1c1e420c6e13c0c61d25e1dc98537933f802bad0 100644 (file)
@@ -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
index b010bac1cfd9ebfa0472eec64c3e68ca2c1317fe..79a17c0df1691d8d84ec2b5b43936bb05de70ff5 100644 (file)
@@ -55,7 +55,7 @@ qRsp rsp =
 
 -- NMC interface
 
-descend subdom dom = dom
+descend subdom dom = dom --FIXME
 
 queryNmc :: Manager -> Config -> String -> String
          -> IO (Either String NmcDom)