don't squash SOA data
authorEugene Crosser <crosser@average.org>
Wed, 2 Apr 2014 07:10:12 +0000 (11:10 +0400)
committerEugene Crosser <crosser@average.org>
Wed, 2 Apr 2014 07:10:12 +0000 (11:10 +0400)
NmcJson.hs

index f7733669e33b08f0ac8bd341d7702dee249d3699..eb1bdb49fb7967544221b09dc55c390af3d7de3f 100644 (file)
@@ -107,7 +107,9 @@ instance FromJSON NmcRes where
 
 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