test.icl

   1 module test
   2
   3 import Gast
   4 import IRC
   5 import GenBimap
   6 import Data.Func
   7 import Data.Either
   8
   9 import Text
  10
  11 derive ggen IRCMessage, Either, IRCUser, IRCCommand, Maybe, CSepList, IRCNumReply, IRCReplies
  12 derive genShow IRCMessage, Either, IRCUser, IRCCommand, Maybe, CSepList, IRCNumReply, IRCReplies
  13
  14 //Doesn't work, generates illegal irc commands with spaces in recipients
  15 Start = concat $ Test [] pParsePrint
  16
  17 pParsePrint :: IRCMessage -> Bool
  18 pParsePrint a
  19 # str = toString a
  20 = either (const False) ((==)str o toString) $ parseIRCMessage str