nmc2pdns name RRTypeAAAA dom = mapto name "AAAA" $ domIp6 dom
nmc2pdns name RRTypeCNAME dom = takejust name "CNAME" $ domAlias dom
nmc2pdns name RRTypeDNAME dom = takejust name "DNAME" $ domTranslate dom
nmc2pdns name RRTypeAAAA dom = mapto name "AAAA" $ domIp6 dom
nmc2pdns name RRTypeCNAME dom = takejust name "CNAME" $ domAlias dom
nmc2pdns name RRTypeDNAME dom = takejust name "DNAME" $ domTranslate dom