X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=blobdiff_plain;f=PowerDns.hs;h=6800143dcd243b8d595f1a78d329509b9fbdb3bc;hp=d93214f98d33352cfc2702ea8ba9e4e1889c7bb8;hb=bae658dcd2084b5f5be71987c6eba23f4106818a;hpb=26b23d266b588ea4b5bc4d53cbf479f9b40d26a0

diff --git a/PowerDns.hs b/PowerDns.hs
index d93214f..6800143 100644
--- a/PowerDns.hs
+++ b/PowerDns.hs
@@ -61,7 +61,7 @@ pdnsParse ver s =
                                             , localIpAddress = getLIp ver xs
                                             , ednsSubnetAddress = getRIp ver xs
                                             })
-      _                         -> Left s
+      _                         -> Left $ "Unparseable PDNS Request: " ++ s
 
-pdnsOut :: NmcDom -> String
-pdnsOut d = show d
+pdnsOut :: RRType -> NmcDom -> String
+pdnsOut _ d = show d