module WebServer (runWebServer) where

import ClassyPrelude
import Network.HTTP.Types
import Network.Wai
import Network.Wai.Handler.Warp (run)
import WebSocket (ServerState, broadcast)

app :: MVar ServerState -> Application
app state _ respond = do
  putStrLn "I've done some IO here"
  currentState <- takeMVar state
  broadcast "dsa" currentState
  putMVar state currentState
  respond $
    responseLBS
      status200
      [("Content-Type", "text/plain")]
      "Hello, Web!"

runWebServer :: MVar ServerState -> IO ()
runWebServer state = do
  putStrLn $ "http://localhost:8080/"
  run 8080 $ app state