X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=blobdiff_plain;f=pdns-pipe-nmc.hs;fp=pdns-pipe-nmc.hs;h=2ef82c239e837a484c28b4b180b106a265055dd4;hp=a0d5fa23d417dbf4203d6812382e350a9b959163;hb=a8d263736c3b3f68ce8a70c4eb2c7c4024a9506a;hpb=6bd856a8ffad4610f3c1632a337ad05e6277c898

diff --git a/pdns-pipe-nmc.hs b/pdns-pipe-nmc.hs
index a0d5fa2..2ef82c2 100644
--- a/pdns-pipe-nmc.hs
+++ b/pdns-pipe-nmc.hs
@@ -110,11 +110,13 @@ mainPdnsNmc = do
             PdnsRequestQ qname qtype id _ _ _ -> do
               io $ queryDom (queryOpNmc cfg mgr id) qname
                      >>= putStr . (pdnsOut ver count qname qtype)
+  -- debug
               io $ putStrLn $ "LOG\tRequest number " ++ (show count)
                            ++ " id: " ++ (show id)
                            ++ " qname: " ++ qname
                            ++ " qtype: " ++ (show qtype)
                            ++ " cache size: " ++ (show (size cache))
+  -- end debug
               put (if count >= 99 then 0 else count + 1,
                    newcache count qname cache)
             PdnsRequestAXFR xrq ->