From: Eugene Crosser <crosser@average.org>
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://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=commitdiff_plain;h=9b167a293761dbff010c9fc980ff09e6c736811f

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