X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=blobdiff_plain;f=PowerDns.hs;fp=PowerDns.hs;h=cbc9fb5df94babc05c9f715b7e6779aa0878e276;hp=76d0b029070f213b0d40f18cdc5e370993eae75c;hb=291b90a1ae073a9c1528a132ea14ea282dc379c1;hpb=f728855c4380a2169a9dc98f52818052db22e031 diff --git a/PowerDns.hs b/PowerDns.hs index 76d0b02..cbc9fb5 100644 --- a/PowerDns.hs +++ b/PowerDns.hs @@ -81,7 +81,7 @@ pdnsParse ver s = "AXFR":x:[] -> Right (PdnsRequestAXFR (getInt x)) "Q":qn:"IN":qt:id:rip:xs -> case rrType qt of RRTypeError e -> - Left $ "PDNS Request: " ++ e + Left $ "PDNS Request: " ++ (show qt) rt -> Right (PdnsRequestQ { qName = qn