Network/DNS/Named/Sanity.hs

   1 module Network.DNS.Named.Sanity
   2     ( SaneAnswerType
   3     , SaneAnswerClass
   4     )
   5     where
   6
   7 import Network.DNS.Message
   8
   9
  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
  19
  20
  21 class SaneAnswerClass q ans
  22 instance RecordClass q => SaneAnswerClass q q
  23 instance RecordClass ans => SaneAnswerClass ANY ans