repositories
/
cloogle-irc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove submodules'
[cloogle-irc.git]
/
test.icl
diff --git
a/test.icl
b/test.icl
index
5ffe818
..
fce0299
100644
(file)
--- a/
test.icl
+++ b/
test.icl
@@
-6,11
+6,12
@@
import Data.Maybe
import StdEnv
import IRC
import StdEnv
import IRC
-Start :: [String]
-Start = map toString
+from Text import class Text(concat), instance Text String
+
+Start = concat $ map toString
[NICK "clooglebot" Nothing
[NICK "clooglebot" Nothing
- ,USER "cloogle" "0" "Cloogle bot"
- ,JOIN
[("#cloogle", Nothing)]
- ,PRIVMSG
["#cloogle"]
"Hello world"
+ ,USER "cloogle" "0" "
cloogle" "
Cloogle bot"
+ ,JOIN
(CSepList ["#cloogle"]) Nothing
+ ,PRIVMSG
(CSepList ["#cloogle"])
"Hello world"
,QUIT Nothing
]
,QUIT Nothing
]