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 ()
|