50 lines
1.9 KiB
Haskell
50 lines
1.9 KiB
Haskell
module Hsbot.Irc.Types
|
|
( IrcBot
|
|
, IrcBotState (..)
|
|
, IrcServer
|
|
, IrcServerState (..)
|
|
, first
|
|
) where
|
|
|
|
import Control.Concurrent
|
|
import Control.Monad.State
|
|
import qualified Data.Map as M
|
|
import Data.Time
|
|
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
|
|
{ ircBotStartTime :: UTCTime -- the bot's uptime
|
|
, 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
|