Begin derivation of hirc

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