normalizeDom :: NmcDom -> NmcDom
normalizeDom dom
- | domNs dom /= Nothing = emptyNmcDom { domNs = domNs dom }
+ | domNs dom /= Nothing = emptyNmcDom { domNs = domNs dom
+ , domEmail = domEmail dom
+ }
| domDelegate dom /= Nothing = emptyNmcDom -- FIXME
| domTranslate dom /= Nothing = dom { domMap = Nothing }
| otherwise = dom