X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=IRC.icl;h=48a58008307f5bc304065f77b399b31f336efcf1;hp=d0a0098775973b0c7b7dbeb36d619de46a1136ec;hb=38119fcb7be8437bc535665f20af8b641ee67e64;hpb=0754ab0cb695ed0966e6a60390d295ca8b8476d1

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