, domDs :: Maybe [NmcRRDs]
, domMx :: Maybe [String] -- Synthetic
, domSrv :: Maybe [String] -- Synthetic
+ , domTlsa :: Maybe [String] -- Synthetic
} deriving (Show, Eq)
instance Default NmcDom where
def = NmcDom Nothing Nothing Nothing Nothing Nothing Nothing Nothing
Nothing Nothing Nothing Nothing Nothing Nothing Nothing
- Nothing Nothing Nothing Nothing Nothing Nothing
+ Nothing Nothing Nothing Nothing Nothing Nothing Nothing
instance FromJSON NmcDom where
-- Wherever we expect a domain object, there may be a string
<*> o .:? "ds"
<*> return Nothing -- domMx not parsed
<*> return Nothing -- domSrv not parsed
+ <*> return Nothing -- domTlsa not parsed
parseJSON _ = empty
instance Mergeable NmcDom where
, domDs = mergelm domDs
, domMx = mergelm domMx
, domSrv = mergelm domSrv
+ , domTlsa = mergelm domTlsa
}
where
mergelm x = merge (x sub) (x dom)