adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Fixed mistake that prevented death message to be parsed upon restarting

Browse source
This commit is contained in:
Julien Dessaux 2011-08-09 23:55:03 +02:00
parent 98a1debf03
commit f698fd2183
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Hsbot.hs
View file

@ -43,10 +43,10 @@ startHsbot config = do
BotExit -> runReaderT terminateHsbot hsbotEnv BotExit -> runReaderT terminateHsbot hsbotEnv
BotReload reason -> do BotReload reason -> do
runReaderT terminateHsbot hsbotEnv runReaderT terminateHsbot hsbotEnv
relaunchWithTextState (M.singleton "die_msg" . show $ BotReload reason) Nothing -- TODO find a way to properly implement that, then insert necessary information in this MVar relaunchWithTextState (State $ M.singleton "die_msg" . show $ BotReload reason) Nothing -- TODO find a way to properly implement that, then insert necessary information in this MVar
BotRestart reason -> do BotRestart reason -> do
runReaderT terminateHsbot hsbotEnv runReaderT terminateHsbot hsbotEnv
relaunchWithTextState (M.singleton "die_msg" . show $ BotRestart reason) Nothing relaunchWithTextState (State $ M.singleton "die_msg" . show $ BotRestart reason) Nothing
hsbot :: Config -> IO () hsbot :: Config -> IO ()
hsbot = Dyre.wrapMain $ Dyre.defaultParams hsbot = Dyre.wrapMain $ Dyre.defaultParams