From: Eugene Crosser <crosser@average.org>
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'