- zoneName = mkDN "cielonegro.org."
- , zoneResponders = [ wrapResponder' $
- do name <- getQueryName
- if name == mkDN "ns.cielonegro.org." then
- respond ResourceRecord {
- rrName = name
- , rrType = A
- , rrClass = IN
- , rrTTL = 9600
- , rrData = inetAddr "127.0.0.1"
- }
- else
- fail "FIXME: we want to throw NameError but we can't for now"
- ]
- , zoneIsAuthoritative = True
+ zoneName = mkDN "cielonegro.org."
+ , zoneSOA = Just SOAFields {
+ soaMasterNameServer = mkDN "ns.cielonegro.org."
+ , soaResponsibleMailbox = mkDN "root.ns.cielonegro.org."
+ , soaSerialNumber = 2008022148
+ , soaRefreshInterval = 3600
+ , soaRetryInterval = 900
+ , soaExpirationLimit = 3600000
+ , soaMinimumTTL = 3600
+ }
+ , zoneRecordNames = return [ mkDN "ns.cielonegro.org."
+ , mkDN "www.cielonegro.org."
+ , mkDN "git.cielonegro.org."
+ ]
+ , zoneResponder = return . responder