From: Eugene Crosser <crosser@average.org>
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://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=commitdiff_plain;h=97f340a4c490f454dac5e73563731109b951b66c;hp=291b90a1ae073a9c1528a132ea14ea282dc379c1

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