11 derive ggen IRCMessage, Either, IRCUser, IRCCommand, Maybe, CSepList, IRCNumReply, IRCReplies
12 derive genShow IRCMessage, Either, IRCUser, IRCCommand, Maybe, CSepList, IRCNumReply, IRCReplies
14 //Doesn't work, generates illegal irc commands with spaces in recipients
15 Start = concat $ Test [] pParsePrint
17 pParsePrint :: IRCMessage -> Bool
20 = either (const False) ((==)str o toString) $ parseIRCMessage str