fix error reporting
authorEugene Crosser <crosser@average.org>
Sat, 19 Apr 2014 10:47:13 +0000 (14:47 +0400)
committerEugene Crosser <crosser@average.org>
Sat, 19 Apr 2014 10:47:13 +0000 (14:47 +0400)
PowerDns.hs

index cbc9fb5df94babc05c9f715b7e6779aa0878e276..81e0ac9efac8c88f3a9746fc8821981af58f69fa 100644 (file)
@@ -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 ->
       "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
                                      rt ->
                                        Right (PdnsRequestQ
                                             { qName = qn