diff options
| author | Julien Dessaux | 2011-05-05 00:36:05 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2011-05-05 00:36:05 +0200 |
| commit | 4522289d55dd66b6e314f18858b0a59df101300c (patch) | |
| tree | 7ed5816ba38d26822cf541ffb7565ceb12051fd5 /Hsbot/Core.hs | |
| parent | Added the Duck module (PAN!). (diff) | |
| download | hsbot-4522289d55dd66b6e314f18858b0a59df101300c.tar.gz hsbot-4522289d55dd66b6e314f18858b0a59df101300c.tar.bz2 hsbot-4522289d55dd66b6e314f18858b0a59df101300c.zip | |
Code cleaning.
Diffstat (limited to 'Hsbot/Core.hs')
| -rw-r--r-- | Hsbot/Core.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Hsbot/Core.hs b/Hsbot/Core.hs index 4e79c76..9c72771 100644 --- a/Hsbot/Core.hs +++ b/Hsbot/Core.hs @@ -75,10 +75,10 @@ runHsbot = do -- Then we join channels mapM_ (liftIO . sendStr connhdl tlsCtx . IRC.encode . IRC.joinChan) channels -- Finally we set the new bot state - asks envBotState >>= liftIO . (flip putMVar BotState { botPlugins = M.empty - , botHooks = [] - , botChannels = channels - , botNickname = nickname }) + asks envBotState >>= liftIO . flip putMVar BotState { botPlugins = M.empty + , botHooks = [] + , botChannels = channels + , botNickname = nickname } -- | Run the bot itself trueRunHsbot :: Env IO BotStatus trueRunHsbot = do |