From 1ee19d546701efde4b4b2f2f70bedae907a5266d Mon Sep 17 00:00:00 2001
From: Eugene Crosser <crosser@average.org>
Date: Sun, 30 Mar 2014 01:36:53 +0400
Subject: [PATCH] cosmetic

---
 PowerDns.hs      | 4 ++--
 pdns-pipe-nmc.hs | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

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
diff --git a/pdns-pipe-nmc.hs b/pdns-pipe-nmc.hs
index b010bac..79a17c0 100644
--- a/pdns-pipe-nmc.hs
+++ b/pdns-pipe-nmc.hs
@@ -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)
-- 
2.39.2