jitsi-roomsv2/backend/src/Lib.hs

15 lines
310 B
Haskell
Raw Normal View History

2023-01-15 16:38:57 +01:00
module Lib
2023-01-15 18:26:41 +01:00
( runBothServers,
)
where
2023-01-15 16:38:57 +01:00
2023-01-15 18:26:41 +01:00
import ClassyPrelude
import WebServer (runWebServer)
import WebSocket (initMVarState, runWebSocketServer)
2023-01-15 16:38:57 +01:00
2023-01-15 18:26:41 +01:00
runBothServers :: IO ()
runBothServers = do
mVarState <- initMVarState
_ <- concurrently (runWebSocketServer mVarState) (runWebServer mVarState)
return ()