summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2015-10-08 20:32:21 +0200
committertv <tv@shackspace.de>2015-10-08 22:03:31 +0200
commit38ab0e0de94353023f3e70eeafdab0db8673bf38 (patch)
tree5d27cf4ead644436a6b7847897d50798d2df19f1
parentd6130b447cb7a9263e60fb5c925dd587b72e1f27 (diff)
Begin derivation of hirc
-rw-r--r--hirc.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/hirc.hs b/hirc.hs
index 96ef82c..86bd135 100644
--- a/hirc.hs
+++ b/hirc.hs
@@ -9,8 +9,8 @@ import Text.Printf
server = "irc.freenode.org"
port = 6667
-chan = "#tutbot-testing"
-nick = "tutbot"
+chan = "#hirc-testing"
+nick = "hirc"
-- The 'Net' monad, a wrapper over IO, carrying the bot's immutable state.
type Net = ReaderT Bot IO
@@ -40,7 +40,7 @@ connect = notify $ do
run :: Net ()
run = do
write "NICK" nick
- write "USER" (nick++" 0 * :tutorial bot")
+ write "USER" (nick++" 0 * :hirc bot")
write "JOIN" chan
asks socket >>= listen