From 11c2c16835b3e8368be77ccc5b7ddf949021eccd Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sat, 3 Jul 2010 21:26:00 +0200
Subject: Moved files around as a preliminary for architectural changes.

---
 Hsbot/Irc/Types.hs | 48 ------------------------------------------------
 1 file changed, 48 deletions(-)
 delete mode 100644 Hsbot/Irc/Types.hs

(limited to 'Hsbot/Irc/Types.hs')

diff --git a/Hsbot/Irc/Types.hs b/Hsbot/Irc/Types.hs
deleted file mode 100644
index 63411df..0000000
--- a/Hsbot/Irc/Types.hs
+++ /dev/null
@@ -1,48 +0,0 @@
-module Hsbot.Irc.Types
-    ( IrcBot
-    , IrcBotState (..)
-    , IrcServer
-    , IrcServerState (..)
-    , first
-    ) where
-
-import Control.Concurrent
-import Control.Monad.State
-import qualified Data.Map as M
-import System.IO
-
-import Hsbot.Irc.Config
-import Hsbot.Irc.Message
-import Hsbot.Irc.Plugin.Utils
-import Hsbot.Types
-
--- | The Ircbot monad
-type IrcBot = StateT IrcBotState IO
-
--- | An Ircbot state
-data IrcBotState = IrcBotState
-    { ircBotPlugins              :: M.Map String (IrcPluginState, MVar (), ThreadId) -- Loaded plugins
-    , ircBotCommands             :: M.Map String [String]   -- Loaded plugins
-    , ircBotChan                 :: Chan IrcBotMsg          -- The IrcBot's communication channel
-    , ircBotMasterChan           :: Chan BotMsg             -- The Hsbot communication channel
-    , ircBotServerState          :: IrcServerState          -- The state of the IrcServer
-    , ircBotHandle               :: Handle                  -- The server's socket/handle
-    , ircBotConfig               :: IrcConfig               -- The starting configuration
-    , ircBotResumeData           :: ResumeData              -- the necessary data to resume the bot's operations on reboot
-    }
-
--- | The IrcServer monad
-type IrcServer = StateT IrcServerState IrcBot
-
--- | An IRC server
-data IrcServerState = IrcServerState
-    { ircServerId            :: String         -- the server's address
-    , ircServerChannels      :: [String]       -- the Channels we are connected to
-    , ircServerNickname      :: String         -- the hsbot's nickname
-    , ircServerCommandPrefix :: Char           -- the prefix the ircbot will recognize as commands
-    , ircServerChan          :: Chan IrcBotMsg -- the IrcBot channel
-    }
-
--- | Utilities for triplets
-first :: (a, b, c) -> a
-first (a, _, _) = a
-- 
cgit v1.2.3