test.icl

   1 module test
   2
   3 from Data.Func import $
   4 import Data.Either
   5 import Data.Maybe
   6 import StdEnv
   7 import IRC
   8
   9 from Text import class Text(concat), instance Text String
  10
  11 Start = concat $ map toString
  12         [NICK "clooglebot" Nothing
  13         ,USER "cloogle" "0" "cloogle" "Cloogle bot"
  14         ,JOIN (CSepList ["#cloogle"]) Nothing
  15         ,PRIVMSG (CSepList ["#cloogle"]) "Hello world"
  16         ,QUIT Nothing
  17         ]