From 4522289d55dd66b6e314f18858b0a59df101300c Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Thu, 5 May 2011 00:36:05 +0200
Subject: Code cleaning.

---
 Hsbot/Core.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Hsbot/Core.hs')

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
-- 
cgit v1.2.3