summaryrefslogtreecommitdiff
path: root/games/hedgewars/files/patch-gameServer__Actions.hs
diff options
context:
space:
mode:
Diffstat (limited to 'games/hedgewars/files/patch-gameServer__Actions.hs')
-rw-r--r--games/hedgewars/files/patch-gameServer__Actions.hs11
1 files changed, 11 insertions, 0 deletions
diff --git a/games/hedgewars/files/patch-gameServer__Actions.hs b/games/hedgewars/files/patch-gameServer__Actions.hs
new file mode 100644
index 000000000000..9c02e8860bc9
--- /dev/null
+++ b/games/hedgewars/files/patch-gameServer__Actions.hs
@@ -0,0 +1,11 @@
+--- ./gameServer/Actions.hs.orig 2014-01-08 17:25:17.000000000 +0100
++++ ./gameServer/Actions.hs 2014-08-10 23:44:17.631500480 +0200
+@@ -562,7 +562,7 @@
+ si <- gets serverInfo
+ newClId <- io $ do
+ ci <- addClient rnc cl
+- _ <- Exception.mask (forkIO . clientRecvLoop (clientSocket cl) (coreChan si) (sendChan cl) ci)
++ _ <- Exception.mask (\x -> forkIO $ clientRecvLoop (clientSocket cl) (coreChan si) (sendChan cl) ci x)
+
+ infoM "Clients" (show ci ++ ": New client. Time: " ++ show (connectTime cl))
+