+makeMx :: Object -> Parser (Maybe [String])
+makeMx o = return Nothing -- FIXME
+{-
+ case H.lookup "service" o of
+ Nothing -> pure Nothing
+ Just (Array saa) -> return $ Just $ fmap mxStr $ filter mxMatch saa
+ where
+ mxMatch sa = (sa ! 0) == "smtp" && (sa ! 1) == "tcp" && (sa ! 4) == 25
+ mxStr sa = (sa ! 2) ++ "\t" ++ (sa ! 5)
+ _ -> empty
+-}
+makeSubmap :: Object -> Parser (Maybe (Map String NmcDom))
+makeSubmap o = o .:? "map" -- FIXME
+