X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=IRC.icl;h=8d8d9fe1c5f7c0ec87026b9c4418aef43231ed23;hp=0fb408f961fb96fa6953e6b076f4bbb54426eb80;hb=a7d6a92bc84d9b769c50106d2353012861b05a85;hpb=d1b0f20fbd85d85cee19347e7deda5e3a9251906

diff --git a/IRC.icl b/IRC.icl
index 0fb408f..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
@@ -125,7 +125,7 @@ illegal = ['\x00','\r','\n']
 
 instance toString IRCNumReply where
 	toString m = lpad (toString $ toInt m.irc_reply) 3 '0' <+ " " <+
-		m.irc_recipient <+ concat (gIRCPrint{|*|} m.irc_message)
+		m.irc_recipient <+ " " <+ concat (gIRCPrint{|*|} m.irc_message)
 instance toString IRCMessage where
 	toString m = maybe "" (\s->either ((<+) ":") id s <+ " ") m.irc_prefix
 		<+ either toString toString m.irc_command