Commit aa96c273 authored by Mart Lubbers's avatar Mart Lubbers

remove submodules'

parent 7a2a0cc9
[submodule "cloogle-sub"]
path = cloogle-sub
url = https://github.com/clean-cloogle/cloogle.git
......@@ -69,7 +69,7 @@ instance toInt IRCReplies, IRCErrors
| TIME (Maybe String)
| TOPIC String (Maybe String)
| TRACE (Maybe String)
| USER String String String
| USER String String String String
| USERHOST CSepList
| USERS (Maybe String)
| VERSION (Maybe String)
......
# clean-irc
IRC library for Clean
*DOES NOT WORK ATM*
## Test
```
make && ./test | nc irc.freenode.net 6667
make && ./test -b | nc irc.freenode.net 6667
```
## Todo
- Implement more commands
- Check comma separated parses
- Check the commands one more time on syntax
- Make a bot interface
Subproject commit ac8e33102880d63c6a9f9bc33c3d2e412d7a5ac4
......@@ -31,8 +31,8 @@ import TCPIP
commands :: [String]
commands = map toString
[NICK "clooglebot" Nothing
,USER "cloogle" "0" "Cloogle bot"
,JOIN [("#cloogle", Nothing)]
,USER "cloogle" "0" "cloogle" "Cloogle bot"
,JOIN (CSepList ["#cloogle"])
]
TIMEOUT :== Just 10000
......
......@@ -6,10 +6,11 @@ import Data.Maybe
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
,USER "cloogle" "0" "Cloogle bot"
,USER "cloogle" "0" "cloogle" "Cloogle bot"
,JOIN (CSepList ["#cloogle"]) Nothing
,PRIVMSG (CSepList ["#cloogle"]) "Hello world"
,QUIT Nothing
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment