X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=blobdiff_plain;f=NmcDom.hs;h=bcbfcd39a3dd2c08463cb273df0e55304432932f;hp=4887ab7290a3e40c5dc4714ced2019896e9b381e;hb=e426dad1c624b87722fdde752258feaf92d103f2;hpb=978ad2816267da813a6984a83035bc73fb293a17

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 =