repositories
/
cloogle-irc.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
5165cde
)
underscores are also allowed in usernames...
author
Mart Lubbers
<mart@martlubbers.net>
Thu, 15 Feb 2018 14:45:47 +0000
(15:45 +0100)
committer
Mart Lubbers
<mart@martlubbers.net>
Thu, 15 Feb 2018 14:45:47 +0000
(15:45 +0100)
IRC.icl
patch
|
blob
|
history
diff --git
a/IRC.icl
b/IRC.icl
index
d0a0098
..
48a5800
100644
(file)
--- 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 ":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
]
parseIRCMessage :: String -> Either [Error] IRCMessage
@@
-78,7
+79,7
@@
where
parseNick :: Parser Char String
parseNick = pAlpha
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
>>= \cs->pure (toString [c:cs])
parseHost :: Parser Char String