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/Core.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Hsbot/Core.hs')

diff --git a/Hsbot/Core.hs b/Hsbot/Core.hs
index 153ce77..b2e34c8 100644
--- a/Hsbot/Core.hs
+++ b/Hsbot/Core.hs
@@ -1,7 +1,7 @@
 module Hsbot.Core
     ( Bot(..)
     , Config(..)
-    , Server(..)
+    , IrcServer(..)
     , newbot
     ) where
 
@@ -10,17 +10,17 @@ import System.IO (Handle)
 
 -- | An IRC Bot server state (socket handles)
 data Bot = Bot
-    { joinedServers :: M.Map Server Handle -- servers we are connected to
+    { joinedServers :: M.Map IrcServer Handle -- servers we are connected to
     } deriving (Eq, Show)
 
 -- | Configuration data type
 data Config = Config {
    commandPrefixes :: String,   -- command prefixes, for example @[\'>\',\'@\',\'?\']@
-   servers         :: [Server]  -- list of 'Server's to connect to
+   ircServers      :: [IrcServer]  -- list of 'Server's to connect to
 } deriving (Eq,Show)
 
 -- | An IRC server
-data Server = Server
+data IrcServer = IrcServer
     { address        :: String   -- the server's address
     , port           :: Int      -- the server's port
     , channels       :: [String] -- a list of channels to join
-- 
cgit v1.2.3