>>= \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
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