Scrap the plan to verify valid proto/port 0.9.0.1
authorEugene Crosser <crosser@average.org>
Thu, 5 Jun 2014 16:38:35 +0000 (20:38 +0400)
committerEugene Crosser <crosser@average.org>
Thu, 5 Jun 2014 16:38:35 +0000 (20:38 +0400)
Desided that it is not up to the bridge to decide which values are
valid for the proto and port and which are not (in SRV and TLSA RRs).

NmcDom.hs

index dac614ba123e241be7c68e3b6c5bc379ff30f85f..505c5436cfccd4de417f2ae77fca3bb583727639 100644 (file)
--- a/NmcDom.hs
+++ b/NmcDom.hs
@@ -120,7 +120,6 @@ takeTls o =
           where
             tmap2dmap :: Map String (Map String [NmcRRTlsa])
                       -> Parser (Maybe (Map String NmcDom))
           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))
             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))