From: Eugene Crosser Date: Mon, 21 Apr 2014 14:04:14 +0000 (+0400) Subject: comment out debug log X-Git-Tag: 0.9.0.0~22 X-Git-Url: http://average.org/gitweb/?a=commitdiff_plain;h=1ee46aba2ad401d2b9b11fe57eef1fb5697c905c;p=pdns-pipe-nmc.git comment out debug log --- diff --git a/pdns-pipe-nmc.hs b/pdns-pipe-nmc.hs index 8f26fa7..e62a1e7 100644 --- a/pdns-pipe-nmc.hs +++ b/pdns-pipe-nmc.hs @@ -127,6 +127,7 @@ mainPdnsNmc = do PdnsRequestQ qname qtype id _ _ _ -> do io $ queryDom (queryOpNmc cfg mgr id) qname >>= putStr . (pdnsOutQ ver count gen qname qtype) + {- -- debug io $ putStrLn $ "LOG\tRequest number " ++ (show count) ++ " id: " ++ (show id) @@ -134,6 +135,7 @@ mainPdnsNmc = do ++ " qtype: " ++ (show qtype) ++ " cache size: " ++ (show (size cache)) -- end debug + -} put $ stow qname (count, cache) PdnsRequestAXFR xrq -> case fetch xrq cache of