diff options
| author | Julien Dessaux | 2010-04-21 20:57:22 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2010-04-21 20:57:22 +0200 |
| commit | 4c76d3d40bbfea365283c13256b3e7cf2d2deb5e (patch) | |
| tree | b5f4e70d225ba0247ad0691e37b45b8cb4142f6c /Hsbot/Main.hs | |
| parent | Fixed the clean killing of plugin's threads, fixed exception management and c... (diff) | |
| download | hsbot-4c76d3d40bbfea365283c13256b3e7cf2d2deb5e.tar.gz hsbot-4c76d3d40bbfea365283c13256b3e7cf2d2deb5e.tar.bz2 hsbot-4c76d3d40bbfea365283c13256b3e7cf2d2deb5e.zip | |
Fixed several stuff.
Diffstat (limited to 'Hsbot/Main.hs')
| -rw-r--r-- | Hsbot/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Hsbot/Main.hs b/Hsbot/Main.hs index 592fefa..5bf03bf 100644 --- a/Hsbot/Main.hs +++ b/Hsbot/Main.hs @@ -5,7 +5,7 @@ module Hsbot.Main import Control.Exception import Control.Monad.State import Prelude hiding (catch) -import System.IO +import System.IO() import Config import Hsbot.Core @@ -17,8 +17,8 @@ import Hsbot.Types imain :: IO () imain = do bot <- connectServer $ ircServer config - (execStateT run bot) `catch` (\(ex :: IOException) -> return bot) - evalStateT disconnectServer bot + bot' <- (execStateT run bot) `catch` (\(_ :: IOException) -> return bot) + evalStateT disconnectServer bot' -- | The Bot monad main function run :: IrcBot () |