Many changes...

[haskell-dns.git] / Network / DNS / Named / Sanity.hs

diff --git a/Network/DNS/Named/Sanity.hs b/Network/DNS/Named/Sanity.hs
new file mode 100644 (file)
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