diff options
Diffstat (limited to 'Hsbot/Irc/Types.hs')
-rw-r--r-- | Hsbot/Irc/Types.hs | 48 |
1 files changed, 0 insertions, 48 deletions
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 |