adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Continue rewriting, found a problem in the way I kill plugins.

Browse source
This commit is contained in:
Julien Dessaux 2010-02-04 23:34:15 +01:00
parent fd8d5faf5f
commit 416460886d
9 changed files with 48 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Hsbot/Main.hs
View file

@ -15,8 +15,8 @@ import Hsbot.Types
imain :: IO ()
imain = do
bot <- connectServer $ ircServer config
(runStateT run bot) `catch` (const $ return ((), bot))
disconnectServer bot
bot' <- (execStateT run bot) `catch` (const $ return bot)
evalStateT disconnectServer bot'
-- | The Bot monad main function
run :: IrcBot ()