typo in SRV hack
authorEugene Crosser <crosser@average.org>
Sun, 13 Apr 2014 17:19:56 +0000 (21:19 +0400)
committerEugene Crosser <crosser@average.org>
Sun, 13 Apr 2014 17:19:56 +0000 (21:19 +0400)
NmcDom.hs

index c32a16e2245b30b64f066bdb5ee71c0b1eb05b6f..d053954683006f51e35f68af83c2ffb348752af5 100644 (file)
--- 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'