Main readme

backend/README.md

@@ -1 +1,6 @@
 # jitsi-rooms
+
+## Development
+
+`stack build`
+`stack stack run`

backend/src/WebServer.hs

@@ -6,19 +6,20 @@ import Network.Wai
 import Network.Wai.Handler.Warp (run)
 import WebSocket (ServerState, broadcast)
 
+-- todo: use ReaderT instead of curring the state
+-- then add a MVar for storing the room Data, including users that are not in any room yet
+
 app :: MVar ServerState -> Application
-app state _ respond = do
+app state req respond = do
   putStrLn "I've done some IO here"
-  currentState <- takeMVar state
-  broadcast "dsa" currentState
-  putMVar state currentState
+  withMVar state $ \currenState -> broadcast "body of req" currenState
   respond $
     responseLBS
       status200
       [("Content-Type", "text/plain")]
-      "Hello, Web!"
+      ""
 
 runWebServer :: MVar ServerState -> IO ()
 runWebServer state = do
-  putStrLn $ "http://localhost:8080/"
+  putStrLn "http://localhost:8080/"
   run 8080 $ app state