adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Rebooting now works great, thanks to the communication channel preservation.

Browse source
This commit is contained in:
Julien Dessaux 2009-08-23 23:07:43 +02:00
parent dfd0b3dcd7
commit d4103e3e18
3 changed files with 17 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Hsbot/Core.hs
View file

@ -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