module Network.DomainAuth.Types where
data DAResult = DAPass
| DAHardFail
| DASoftFail
| DANeutral
| DAFail
| DATempError
| DAPermError
| DANone
| DAPolicy
| DANxDomain
| DADiscard
| DAUnknown
deriving (Eq,Enum,Bounded)
instance Show DAResult where
show DAPass = "pass"
show DAHardFail = "hardfail"
show DASoftFail = "softfail"
show DANeutral = "neutral"
show DAFail = "fail"
show DATempError = "temperror"
show DAPermError = "permerror"
show DANone = "none"
show DAPolicy = "policy"
show DANxDomain = "nxdomain"
show DADiscard = "discard"
show DAUnknown = "unknown"