X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=blobdiff_plain;f=NmcDom.hs;h=505c5436cfccd4de417f2ae77fca3bb583727639;hp=dac614ba123e241be7c68e3b6c5bc379ff30f85f;hb=ea1648a0a1a63ef82c0159864e5efa4fc6297a1d;hpb=92504303416dfc46f1a4e4ed45ddd3203919cf8f

diff --git a/NmcDom.hs b/NmcDom.hs
index dac614b..505c543 100644
--- a/NmcDom.hs
+++ b/NmcDom.hs
@@ -120,7 +120,6 @@ takeTls o =
           where
             tmap2dmap :: Map String (Map String [NmcRRTlsa])
                       -> Parser (Maybe (Map String NmcDom))
-                -- FIXME return parse error on invalid proto or port
             tmap2dmap m1 = return $ foldrWithKey addprotoelem (Just M.empty) m1
             addprotoelem k1 m2 acc = protoelem k1 m2 `merge` acc
             protoelem k1 m2 = Just (M.singleton ("_" ++ k1) (pmap2dmap m2))