summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJulien Dessaux2011-08-09 23:55:03 +0200
committerJulien Dessaux2011-08-09 23:55:03 +0200
commitf698fd218375a0bfebd466a1cdc043427c2379b6 (patch)
tree5cc898df7f9ec89d8d185ace964d5e8437d6bd22
parentMoved to death messages IRC output around, because those were sent too soon (diff)
downloadhsbot-f698fd218375a0bfebd466a1cdc043427c2379b6.tar.gz
hsbot-f698fd218375a0bfebd466a1cdc043427c2379b6.tar.bz2
hsbot-f698fd218375a0bfebd466a1cdc043427c2379b6.zip
Fixed mistake that prevented death message to be parsed upon restarting
Diffstat (limited to '')
-rw-r--r--Hsbot.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Hsbot.hs b/Hsbot.hs
index 33cfa45..e2e771e 100644
--- a/Hsbot.hs
+++ b/Hsbot.hs
@@ -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