Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
netserver/Miscutils.hs
changeset 852 f756a1d3324c
parent 851 8ffa4ad0d8ea
child 889 3bf9dc791f45 
--- a/netserver/Miscutils.hs	Sat Apr 19 19:29:58 2008 +0000
+++ b/netserver/Miscutils.hs	Sat Apr 19 19:34:19 2008 +0000
@@ -42,12 +42,13 @@
 			ls <- readTVar state
 			writeTVar state $ op ls
 
-manipState2 :: TVar[ClientInfo] -> TVar[RoomInfo] -> ([ClientInfo] -> [RoomInfo] -> ([ClientInfo], [RoomInfo])) -> IO()
+manipState2 :: TVar[ClientInfo] -> TVar[RoomInfo] -> ([ClientInfo] -> [RoomInfo] -> ([ClientInfo], [RoomInfo], Bool)) -> IO Bool
 manipState2 state1 state2 op =
 	atomically $ do
 			ls1 <- readTVar state1
 			ls2 <- readTVar state2
-			let (ol1, ol2) = op ls1 ls2
+			let (ol1, ol2, res) = op ls1 ls2
 			writeTVar state1 ol1
 			writeTVar state2 ol2
+			return res
hedgewars