From: Eugene Crosser <crosser@average.org>
Date: Sat, 3 May 2014 10:48:01 +0000 (+0400)
Subject: fixme note about splitting subdoms
X-Git-Tag: 0.9.0.1~8
X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=commitdiff_plain;h=e426dad1c624b87722fdde752258feaf92d103f2

fixme note about splitting subdoms
---

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 =