From e426dad1c624b87722fdde752258feaf92d103f2 Mon Sep 17 00:00:00 2001 From: Eugene Crosser Date: Sat, 3 May 2014 14:48:01 +0400 Subject: [PATCH] fixme note about splitting subdoms --- NmcDom.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/NmcDom.hs b/NmcDom.hs index 4887ab7..bcbfcd3 100644 --- a/NmcDom.hs +++ b/NmcDom.hs @@ -74,7 +74,7 @@ makeSubmap :: Object -> Parser (Maybe (Map String NmcDom)) makeSubmap o = ((.).(.)) merge merge <$> takeTls o <*> takeSrv o <*> takeMap o takeMap :: Object -> Parser (Maybe (Map String NmcDom)) -takeMap o = o .:? "map" +takeMap o = o .:? "map" -- FIXME split over dots here takeSrv :: Object -> Parser (Maybe (Map String NmcDom)) takeSrv o = -- 2.39.2