From b89115632b984f03837a9f079b339fd88dbcfbbc Mon Sep 17 00:00:00 2001 From: Eugene Crosser Date: Sun, 13 Apr 2014 21:19:56 +0400 Subject: [PATCH] typo in SRV hack --- NmcDom.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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' -- 2.39.2