X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=haskell-dns.git;a=blobdiff_plain;f=Network%2FDNS%2FNamed%2FSanity.hs;fp=Network%2FDNS%2FNamed%2FSanity.hs;h=8d5c7939ee35273f78ee2c9f5ae4d2966fb960a4;hp=0000000000000000000000000000000000000000;hb=7a09a987b0369db0c013fb10272329c733ffc8a1;hpb=5d250da422c01c7aab948ebdda5ef618f18e0f39

diff --git a/Network/DNS/Named/Sanity.hs b/Network/DNS/Named/Sanity.hs
new file mode 100644
index 0000000..8d5c793
--- /dev/null
+++ b/Network/DNS/Named/Sanity.hs
@@ -0,0 +1,23 @@
+module Network.DNS.Named.Sanity
+    ( SaneAnswerType
+    , SaneAnswerClass
+    )
+    where
+
+import Network.DNS.Message
+
+
+class SaneAnswerType q ans
+instance (RecordType q dt) => SaneAnswerType q q
+instance (RecordType q dt) => SaneAnswerType q CNAME
+instance (RecordType ans dt) => SaneAnswerType ANY ans
+instance (RecordType ans dt) => SaneAnswerType AXFR ans
+instance SaneAnswerType MAILB MR
+instance SaneAnswerType MAILB MB
+instance SaneAnswerType MAILB MG
+instance SaneAnswerType MAILB MINFO
+
+
+class SaneAnswerClass q ans
+instance RecordClass q => SaneAnswerClass q q
+instance RecordClass ans => SaneAnswerClass ANY ans