X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=blobdiff_plain;f=pdns-pipe-nmc.hs;h=d047b4fbe00112617e9508174fd1b3896f7ae9ae;hp=737c9e771f4d0c81c32518eae45e97961a332231;hb=61a1067b335cf064a99ec1c4d36042fe8a685738;hpb=a94698b56a0faf340c007fe11b6ac7bcb2c566e2

diff --git a/pdns-pipe-nmc.hs b/pdns-pipe-nmc.hs
index 737c9e7..d047b4f 100644
--- a/pdns-pipe-nmc.hs
+++ b/pdns-pipe-nmc.hs
@@ -101,7 +101,8 @@ mainPdnsNmc = do
       Right preq -> do
         case preq of
           PdnsRequestQ qname qtype id _ _ _ ->
-            queryDom (queryOpNmc cfg mgr id) qname >>= putStr . (pdnsOut ver id qname qtype)
+            queryDom (queryOpNmc cfg mgr id) qname
+              >>= putStr . (pdnsOut ver id qname qtype)
           PdnsRequestAXFR xfrreq ->
             putStr $ pdnsReport ("No support for AXFR " ++ xfrreq)
           PdnsRequestPing -> putStrLn "END"