From 291b90a1ae073a9c1528a132ea14ea282dc379c1 Mon Sep 17 00:00:00 2001
From: Eugene Crosser <crosser@average.org>
Date: Sat, 19 Apr 2014 14:40:25 +0400
Subject: [PATCH] better error reporting

---
 PowerDns.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.39.2