From 07a2d37e49592bcbc29223ef864a20543b6e3121 Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Thu, 15 Feb 2018 15:45:47 +0100 Subject: [PATCH] underscores are also allowed in usernames... --- IRC.icl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/IRC.icl b/IRC.icl index d0a0098..48a5800 100644 --- a/IRC.icl +++ b/IRC.icl @@ -42,6 +42,7 @@ where , parseIRCMessage ":wilhelm.freenode.net 001 clooglebot :Welcome to the freenode Internet Relay Chat Network clooglebot\r\n" , parseIRCMessage "PING :orwell.freenode.net\r\n" , parseIRCMessage ":ChanServ!ChanServ@services. MODE #cloogle +o frobnicator\r\n" + , parseIRCMessage ":qbot_v01!~qbot@ip-213-124-170-20.ip.prioritytelecom.net PRIVMSG ##chinees :[link] Cloogle - https://cloogle.org" ] parseIRCMessage :: String -> Either [Error] IRCMessage @@ -78,7 +79,7 @@ where parseNick :: Parser Char String parseNick = pAlpha - >>= \c ->pMany (pAlpha <|> pDigit <|> pOneOf (fromString "-[]\\`^{}")) + >>= \c ->pMany (pAlpha <|> pDigit <|> pOneOf (fromString "_-[]\\`^{}")) >>= \cs->pure (toString [c:cs]) parseHost :: Parser Char String -- 2.20.1