import qualified Data.ByteString.Lazy as LBS
import Data.Word
import Network.DNS.Message
-import Network.Socket
-import System.IO.Unsafe
+import Network.Socket.IsString ()
import Test.HUnit
}
, msgQuestions = [ wrapQuestion $
Question {
- qName = mkDomainName "mail.cielonegro.org."
+ qName = "mail.cielonegro.org."
, qType = CNAME
, qClass = IN
}
}
, msgQuestions = [ wrapQuestion $
Question {
- qName = mkDomainName "mail.cielonegro.org."
+ qName = "mail.cielonegro.org."
, qType = CNAME
, qClass = IN
}
]
, msgAnswers = [ wrapRecord $
ResourceRecord {
- rrName = mkDomainName "mail.cielonegro.org."
+ rrName = "mail.cielonegro.org."
, rrType = CNAME
, rrClass = IN
, rrTTL = 86400
- , rrData = mkDomainName "nem.cielonegro.org."
+ , rrData = "nem.cielonegro.org."
}
]
, msgAuthorities = [ wrapRecord $
ResourceRecord {
- rrName = mkDomainName "cielonegro.org."
+ rrName = "cielonegro.org."
, rrType = NS
, rrClass = IN
, rrTTL = 3600
- , rrData = mkDomainName "nem.cielonegro.org."
+ , rrData = "nem.cielonegro.org."
}
]
, msgAdditionals = [ wrapRecord $
ResourceRecord {
- rrName = mkDomainName "nem.cielonegro.org."
+ rrName = "nem.cielonegro.org."
, rrType = A
, rrClass = IN
, rrTTL = 3600
- , rrData = unsafePerformIO (inet_addr "219.94.130.139")
+ , rrData = "219.94.130.139"
}
]
}
}
, msgQuestions = [ wrapQuestion $
Question {
- qName = mkDomainName "cielonegro.org."
+ qName = "cielonegro.org."
, qType = SOA
, qClass = IN
}
}
, msgQuestions = [ wrapQuestion $
Question {
- qName = mkDomainName "cielonegro.org."
+ qName = "cielonegro.org."
, qType = SOA
, qClass = IN
}
]
, msgAnswers = [ wrapRecord $
ResourceRecord {
- rrName = mkDomainName "cielonegro.org."
+ rrName = "cielonegro.org."
, rrType = SOA
, rrClass = IN
, rrTTL = 3600
, rrData = SOAFields {
- soaMasterNameServer = mkDomainName "nem.cielonegro.org."
- , soaResponsibleMailbox = mkDomainName "root.nem.cielonegro.org."
+ soaMasterNameServer = "nem.cielonegro.org."
+ , soaResponsibleMailbox = "root.nem.cielonegro.org."
, soaSerialNumber = 2008022148
, soaRefreshInterval = 3600
, soaRetryInterval = 900
]
, msgAuthorities = [ wrapRecord $
ResourceRecord {
- rrName = mkDomainName "cielonegro.org."
+ rrName = "cielonegro.org."
, rrType = NS
, rrClass = IN
, rrTTL = 3600
- , rrData = mkDomainName "nem.cielonegro.org."
+ , rrData = "nem.cielonegro.org."
}
]
, msgAdditionals = [ wrapRecord $
ResourceRecord {
- rrName = mkDomainName "nem.cielonegro.org."
+ rrName = "nem.cielonegro.org."
, rrType = A
, rrClass = IN
, rrTTL = 3600
- , rrData = unsafePerformIO (inet_addr "219.94.130.139")
+ , rrData = "219.94.130.139"
}
]
}