From a7d6a92bc84d9b769c50106d2353012861b05a85 Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Tue, 18 Jul 2017 14:22:09 +0200 Subject: [PATCH 1/1] Fix hostname parsing for cloaked hostnames --- IRC.icl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/IRC.icl b/IRC.icl index f51bc8a..8d8d9fe 100644 --- a/IRC.icl +++ b/IRC.icl @@ -86,7 +86,7 @@ where >>= \s->optional (pToken '.') >>= pure o maybe s (\p->s+++toString s) where parseName :: Parser Char String - parseName = toString <$> pSome (pAlpha <|> pDigit <|> pOneOf ['-']) + parseName = toString <$> pSome (pAlpha <|> pDigit <|> pOneOf ['-', '/']) //Parse Cmd parseCmd :: [Char] -> Either Error IRCCommand -- 2.20.1