From d4103e3e18a36523735af38eace98a64e1068e6e Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 23 Aug 2009 23:07:43 +0200
Subject: Rebooting now works great, thanks to the communication channel
 preservation.

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

(limited to 'Hsbot/Core.hs')

diff --git a/Hsbot/Core.hs b/Hsbot/Core.hs
index c62ae58..fddcb72 100644
--- a/Hsbot/Core.hs
+++ b/Hsbot/Core.hs
@@ -49,8 +49,8 @@ isConnected (Bot bot) ircServer = ircServer `M.member` bot
 saveServerState :: Handle -> IrcServer -> Bot -> Bot
 saveServerState handle ircServer x@(Bot bot) = 
     if ircServer `M.member` bot then x
-     else (Bot $ M.insert ircServer handle bot)
+      else (Bot $ M.insert ircServer handle bot)
 
-saveServersStates :: [(IrcServer,Handle)] -> Bot -> Bot
-saveServersStates liste bot = foldr (\(ircServer,handle) bot' -> saveServerState handle ircServer bot') bot liste
+saveServersStates :: [(IrcServer, Handle)] -> Bot -> Bot
+saveServersStates liste bot = foldl (\bot' (ircServer, handle) -> saveServerState handle ircServer bot') bot liste
 
-- 
cgit v1.2.3