From 6034f1617392d09e3a5f9af19b064cc369f546e0 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Tue, 4 Aug 2020 20:20:12 +0200
Subject: Make it look decent

---
 server/lib/Cafp/Main/Server.hs | 1 +
 1 file changed, 1 insertion(+)

(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 799f26e..4b1bfe7 100644
--- a/server/lib/Cafp/Main/Server.hs
+++ b/server/lib/Cafp/Main/Server.hs
@@ -142,6 +142,7 @@ wsApp server pc = case routePendingConnection pc of
                 roomEmpty <- atomically $ leaveRoom room playerId
                 if roomEmpty then deleteRoom server roomId else syncRoom room)
             (\playerId -> do
+                sink . Aeson.encode $ Welcome roomId
                 syncRoom room
                 cards <- fmap (^. gameCards) . atomically . STM.readTVar $
                     roomGame room
-- 
cgit v1.2.3