X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=blobdiff_plain;f=PowerDns.hs;h=81e0ac9efac8c88f3a9746fc8821981af58f69fa;hp=cbc9fb5df94babc05c9f715b7e6779aa0878e276;hb=97f340a4c490f454dac5e73563731109b951b66c;hpb=291b90a1ae073a9c1528a132ea14ea282dc379c1 diff --git a/PowerDns.hs b/PowerDns.hs index cbc9fb5..81e0ac9 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: " ++ (show qt) + Left $ "Unrecognized RR type: " ++ e rt -> Right (PdnsRequestQ { qName = qn