pdnsOut :: Int -> String -> String -> RRType -> Either String NmcDom -> String
pdnsOut ver id name rrtype edom =
case edom of
- Left err -> pdnsReport err
+ Left err -> pdnsReport $ err ++ " in a query for " ++ name
Right dom -> foldr addLine "END\n" $ nmc2pdns name rrtype dom
where
addLine (nm, ty, dt) accum =
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 RRTypeSOA dom =
+nmc2pdns name RRTypeSOA dom = -- FIXME generate only for top domain
if dom == emptyNmcDom then []
else
let