From 45ebb68aa03ff7a292f46048141949c12cf90f91 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Thu, 6 Aug 2009 00:09:56 +0200
Subject: renamed "Server" algebraic data type to "IrcServer"

---
 Hsbot/IRC.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Hsbot/IRC.hs')

diff --git a/Hsbot/IRC.hs b/Hsbot/IRC.hs
index 094cb3f..6ff1013 100644
--- a/Hsbot/IRC.hs
+++ b/Hsbot/IRC.hs
@@ -22,9 +22,9 @@ data IrcInput = Cmd  User Channel (Command, Maybe String) -- a regular command
 
 -- | Data that can go over the remote channel
 data IrcOutput = Str String              -- a regular string
-               | Quit (Server, Handle)   -- a quit message from a server
-               | Join (Server, Channel)  -- joined a channel
-               | Part (Server, Channel)  -- parted the channel
+               | Quit (IrcServer, Handle)   -- a quit message from a server
+               | Join (IrcServer, Channel)  -- joined a channel
+               | Part (IrcServer, Channel)  -- parted the channel
                | Reboot                  -- reboot message sent
                | Nil                     -- signifies thread death, only happens after reboot
     deriving (Eq,Show)
-- 
cgit v1.2.3