1 module Network.DNS.Named.Sanity
7 import Network.DNS.Message
10 class SaneAnswerType q ans
11 instance (RecordType q dt) => SaneAnswerType q q
12 instance (RecordType q dt) => SaneAnswerType q CNAME
13 instance (RecordType ans dt) => SaneAnswerType ANY ans
14 instance (RecordType ans dt) => SaneAnswerType AXFR ans
15 instance SaneAnswerType MAILB MR
16 instance SaneAnswerType MAILB MB
17 instance SaneAnswerType MAILB MG
18 instance SaneAnswerType MAILB MINFO
21 class SaneAnswerClass q ans
22 instance RecordClass q => SaneAnswerClass q q
23 instance RecordClass ans => SaneAnswerClass ANY ans