Fix hostname parsing for cloaked hostnames
authorMart Lubbers <mart@martlubbers.net>
Tue, 18 Jul 2017 12:22:09 +0000 (14:22 +0200)
committerMart Lubbers <mart@martlubbers.net>
Tue, 18 Jul 2017 12:22:09 +0000 (14:22 +0200)
IRC.icl

diff --git a/IRC.icl b/IRC.icl
index f51bc8a..8d8d9fe 100644 (file)
--- 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
                >>= \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
 
 //Parse Cmd
 parseCmd :: [Char] -> Either Error IRCCommand