From 49b346b7ebe98051a618d88a39d9b02f13edf33c Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Wed, 29 Jul 2020 21:14:12 +0200
Subject: Welcome Bye

---
 server/lib/Cafp/Main/Server.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 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 6451e17..4b59135 100644
--- a/server/lib/Cafp/Main/Server.hs
+++ b/server/lib/Cafp/Main/Server.hs
@@ -7,6 +7,7 @@ import           Cafp.Messages
 import           Control.Concurrent             (threadDelay)
 import           Control.Concurrent.STM         (STM, TVar, newTVar)
 import           Control.Monad                  (forever, when)
+import qualified Data.Aeson                     as Aeson
 import qualified Data.HashMap.Strict            as HMS
 import           Data.Text                      (Text)
 import qualified Data.Text                      as T
@@ -53,9 +54,9 @@ wsApp pc = case routePendingConnection pc of
     Just roomId -> do
         conn <- WS.acceptRequest pc
         WS.forkPingThread conn 30
-        WS.sendTextData conn $ "Welcome to room " <> roomId
+        WS.sendTextData conn $ Aeson.encode Welcome
         forever $ do
-            WS.sendTextData conn $ ("loop data" :: Text)
+            WS.sendTextData conn $ Aeson.encode Bye
             threadDelay $ 1 * 1000000
 
 main :: IO ()
-- 
cgit v1.2.3