From e3a2052522471d39e410f4ea13d51d3d18f52b80 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Fri, 31 Jul 2020 17:13:37 +0200
Subject: Multiple \BLANK in black cards

---
 server/lib/Cafp/Main/Server.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'server/lib/Cafp/Main/Server.hs')

diff --git a/server/lib/Cafp/Main/Server.hs b/server/lib/Cafp/Main/Server.hs
index 13b1f6b..3a99672 100644
--- a/server/lib/Cafp/Main/Server.hs
+++ b/server/lib/Cafp/Main/Server.hs
@@ -113,9 +113,10 @@ syncRoom room = do
     (game, sinks) <- atomically $ (,)
         <$> STM.readTVar (roomGame room)
         <*> STM.readTVar (roomSinks room)
-    warning $ "New state: " ++ show game
-    for_ (HMS.toList sinks) $ \(pid, sink) ->
-        sink . Aeson.encode . SyncGameView $ gameViewForPlayer pid game
+    for_ (HMS.toList sinks) $ \(pid, sink) -> do
+        let view = gameViewForPlayer pid game
+        warning $ "New state: " ++ show view
+        sink . Aeson.encode $ SyncGameView view
 
 wsApp :: Server -> WS.ServerApp
 wsApp server pc = case routePendingConnection pc of
-- 
cgit v1.2.3