test function to interactively ask about a domain

[pdns-pipe-nmc.git] / PowerDns.hs

diff --git a/PowerDns.hs b/PowerDns.hs
index d93214f98d33352cfc2702ea8ba9e4e1889c7bb8..cb685dd4e96fadfb9e83359568365e46c5d7ddde 100644 (file)
--- a/PowerDns.hs
+++ b/PowerDns.hs
@@ -1,4 +1,4 @@
-module PowerDns ( RRType
+module PowerDns ( RRType(..)
                 , PdnsRequest(..)
                 , pdnsParse
                 , pdnsOut
@@ -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