From 38ab0e0de94353023f3e70eeafdab0db8673bf38 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 8 Oct 2015 20:32:21 +0200
Subject: Begin derivation of hirc

---
 hirc.hs | 6 +++---
 1 file 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
  
-- 
cgit v1.2.3