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 Start :: [String]
  10 Start = map toString
  11         [NICK "clooglebot" Nothing
  12         ,USER "cloogle" "0" "Cloogle bot"
  13         ,JOIN (CSepList ["#cloogle"]) Nothing
  14         ,PRIVMSG (CSepList ["#cloogle"]) "Hello world"
  15         ,QUIT Nothing
  16         ]