, NmcRRService(..)
, NmcRRI2p(..)
, NmcRRTls(..)
+ , NmcRRDs(..)
, emptyNmcDom
, mergeNmcDom
) where
(Map String [NmcRRTls]))
, domDs :: Maybe [NmcRRDs]
, domMx :: Maybe [String] -- Synthetic
+ , domSrv :: Maybe [String] -- Synthetic
} deriving (Show, Eq)
instance FromJSON NmcDom where
<*> o .:? "tls"
<*> o .:? "ds"
<*> return Nothing -- domMx not parsed
+ <*> return Nothing -- domSrv not parsed
parseJSON _ = empty
instance Mergeable NmcDom where
, domTls = mergelm domTls
, domDs = mergelm domDs
, domMx = mergelm domMx
+ , domSrv = mergelm domSrv
}
where
mergelm x = merge (x sub) (x dom)
emptyNmcDom = NmcDom Nothing Nothing Nothing Nothing Nothing Nothing
Nothing Nothing Nothing Nothing Nothing Nothing
Nothing Nothing Nothing Nothing Nothing Nothing
- Nothing
+ Nothing Nothing