diff options
author | Jasper Van der Jeugt | 2020-07-29 21:14:12 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-07-29 21:14:12 +0200 |
commit | 49b346b7ebe98051a618d88a39d9b02f13edf33c (patch) | |
tree | 41d126d23ed0d3bcc469622b510b67e71d273821 /server/lib/Cafp/Main/Server.hs | |
parent | 057d954fe8d3265fc122f4a3066eab15eb7653d3 (diff) |
Welcome Bye
Diffstat (limited to 'server/lib/Cafp/Main/Server.hs')
-rw-r--r-- | server/lib/Cafp/Main/Server.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 () |