- Left err -> "LOG Error: " ++ err ++ "\nFAIL\n"
- Right dom -> "DATA\n" ++ (show dom) ++ "\nEND\n" --FIXME
+ Left err -> pdnsReport err
+ Right dom -> pdnsAmend ver id rrtype dom "END\n"
+
+pdnsAmend :: Int -> String -> RRType -> NmcDom -> String -> String
+pdnsAmend ver id rrtype dom accum =
+ "DATA\t" ++ (show dom) ++ "\n" ++ accum --FIXME