diff options
| author | Julien Dessaux | 2011-08-09 23:55:03 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2011-08-09 23:55:03 +0200 |
| commit | f698fd218375a0bfebd466a1cdc043427c2379b6 (patch) | |
| tree | 5cc898df7f9ec89d8d185ace964d5e8437d6bd22 | |
| parent | Moved to death messages IRC output around, because those were sent too soon (diff) | |
| download | hsbot-f698fd218375a0bfebd466a1cdc043427c2379b6.tar.gz hsbot-f698fd218375a0bfebd466a1cdc043427c2379b6.tar.bz2 hsbot-f698fd218375a0bfebd466a1cdc043427c2379b6.zip | |
Fixed mistake that prevented death message to be parsed upon restarting
| -rw-r--r-- | Hsbot.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -43,10 +43,10 @@ startHsbot config = do BotExit -> runReaderT terminateHsbot hsbotEnv BotReload reason -> do 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 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 = Dyre.wrapMain $ Dyre.defaultParams |