From: Eugene Crosser Date: Wed, 2 Apr 2014 07:10:12 +0000 (+0400) Subject: don't squash SOA data X-Git-Tag: 0.9.0.0~99 X-Git-Url: http://average.org/gitweb/?a=commitdiff_plain;h=9b167a293761dbff010c9fc980ff09e6c736811f;p=pdns-pipe-nmc.git don't squash SOA data --- diff --git a/NmcJson.hs b/NmcJson.hs index f773366..eb1bdb4 100644 --- a/NmcJson.hs +++ b/NmcJson.hs @@ -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