let
allrrs = [ RRTypeSRV, RRTypeA, RRTypeAAAA, RRTypeCNAME
, RRTypeDNAME, RRTypeRP, RRTypeLOC, RRTypeNS
, RRTypeDS, RRTypeMX, RRTypeSOA
]
walkDom f acc name dom =
let
allrrs = [ RRTypeSRV, RRTypeA, RRTypeAAAA, RRTypeCNAME
, RRTypeDNAME, RRTypeRP, RRTypeLOC, RRTypeNS
, RRTypeDS, RRTypeMX, RRTypeSOA
]
walkDom f acc name dom =