From: dopefishh <mart@martlubbers.net>
Date: Tue, 18 Jul 2017 12:28:58 +0000 (+0200)
Subject: Merge pull request #11 from clean-cloogle/ctcp-ping
X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=commitdiff_plain;h=ad2130683cbdb41ca29581e366ef19ca758eb95a;hp=708f2d439b306fe546e86e1a5a65c4081a1a2677

Merge pull request #11 from clean-cloogle/ctcp-ping

Add CTCP ping
---

diff --git a/IRC.icl b/IRC.icl
index f51bc8a..8d8d9fe 100644
--- 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
-			parseName = toString <$> pSome (pAlpha <|> pDigit <|> pOneOf ['-'])
+			parseName = toString <$> pSome (pAlpha <|> pDigit <|> pOneOf ['-', '/'])
 
 //Parse Cmd
 parseCmd :: [Char] -> Either Error IRCCommand