makeSubmap o = ((.).(.)) merge merge <$> takeTls o <*> takeSrv o <*> takeMap o
takeMap :: Object -> Parser (Maybe (Map String NmcDom))
makeSubmap o = ((.).(.)) merge merge <$> takeTls o <*> takeSrv o <*> takeMap o
takeMap :: Object -> Parser (Maybe (Map String NmcDom))