From: Eugene Crosser Date: Sat, 19 Apr 2014 10:47:13 +0000 (+0400) Subject: fix error reporting X-Git-Tag: 0.9.0.0~41 X-Git-Url: http://average.org/gitweb/?a=commitdiff_plain;h=97f340a4c490f454dac5e73563731109b951b66c;p=pdns-pipe-nmc.git fix error reporting --- 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