-pdnsOut ver id name rrtype edom = case edom of
- Left err ->
- pdnsReport $ err ++ " in a " ++ (show rrtype) ++ "query for " ++ name
- Right dom ->
- case rrtype of
- RRTypeANY -> foldr (\x a -> (formatRR ver id name dom x) ++ a) "END\n"
- [RRTypeSRV, RRTypeA, RRTypeAAAA, RRTypeCNAME, RRTypeDNAME,
- RRTypeRP, RRTypeLOC, RRTypeNS, RRTypeDS, RRTypeMX]
- _ -> (formatRR ver id name dom rrtype) ++ "END\n"
+pdnsOut ver id name rrtype edom =
+ let
+ rrl = case rrtype of
+ RRTypeANY -> [RRTypeSRV, RRTypeA, RRTypeAAAA, RRTypeCNAME
+ , RRTypeDNAME, RRTypeRP, RRTypeLOC, RRTypeNS
+ , RRTypeDS, RRTypeMX]
+ rrt -> [rrt]
+ in
+ (formatDom ver id name rrl edom) ++ "END\n"