From: Eugene Crosser <crosser@average.org>
Date: Thu, 5 Jun 2014 16:38:35 +0000 (+0400)
Subject: Scrap the plan to verify valid proto/port
X-Git-Tag: 0.9.0.1^0
X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=commitdiff_plain;h=ea1648a0a1a63ef82c0159864e5efa4fc6297a1d

Scrap the plan to verify valid proto/port

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).
---

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))