Commit a7d6a92b authored by Mart Lubbers's avatar Mart Lubbers

Fix hostname parsing for cloaked hostnames

parent a5d61319
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment