From: Eugene Crosser Date: Sun, 13 Apr 2014 17:19:56 +0000 (+0400) Subject: typo in SRV hack X-Git-Tag: 0.9.0.0~75 X-Git-Url: http://average.org/gitweb/?a=commitdiff_plain;h=b89115632b984f03837a9f079b339fd88dbcfbbc;p=pdns-pipe-nmc.git typo in SRV hack --- diff --git a/NmcDom.hs b/NmcDom.hs index c32a16e..d053954 100644 --- a/NmcDom.hs +++ b/NmcDom.hs @@ -246,7 +246,7 @@ descendNmcDom queryOp subdom base = do case subdom of [] -> return $ fmap normalizeDom base' -- A hack to handle SRV records: don't descend if ["_prot","_serv"] - [('_':_),('-':_)] -> return $ fmap normalizeDom base' + [('_':_),('_':_)] -> return $ fmap normalizeDom base' d:ds -> case base' of Left err -> return base'