ForStart :: Config -> WS.Connection -> IO [ServerMessage]
waitForStart config conn = go
  where
    go = do
        m <- getServerMessage config conn
        case m of
            Started {} -> playGame config conn
            _ -> go

pl
waitForStart :: Config -> WS.Connection -> IO [ServerMessage]
waitForStart config conn = go
  where
    go = do
        m <- getServerMessage config conn
        case m of
            Started {} -> playGame config conn
            _ -> go
waitForStart config conn = go
  where
    go = do
        m <- getServerMessage config conn
        case m of
            Started {} -> playGame config conn
            _ -> go