blob: ea1bf160d25550a988e1417ffe18ee5e818162a1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
module Hsbot.Main
( imain
) where
import Control.Monad.State
import System.IO
import Config
import Hsbot.Core
import Hsbot.IRC
import Hsbot.Plugin
import Hsbot.Types
-- | Bot's main entry point
imain :: IO ()
imain = do
bot <- connectServer $ ircServer config
bot' <- (execStateT run bot) `catch` (const $ return bot)
evalStateT disconnectServer bot'
-- | The Bot monad main function
run :: IrcBot ()
run = do
initServer
mapM_ loadPlugin defaultPlugins
runServer
|