qvalentin/jitsi-roomsv2
1
1
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity

Add some logging
Some checks failed
continuous-integration/drone/push Build is passing
Details
continuous-integration/drone/tag Build is failing
Details

Browse source
This commit is contained in:
qvalentin 2023-06-19 19:04:53 +02:00
parent 1e318817a4
commit 69aa82837c
4 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
backend/src/RoomDataHandler.hs
View file

@ -44,7 +44,7 @@ roomDataHandler ::
m ResponseReceived
roomDataHandler = do
newRoomData <- parseBodyOrBadRequest
liftIO $ putStrLn "Got triggered form prosody"
liftIO $ putStrLn "Got triggered from prosody"
whenM (roomStateDiffers newRoomData) $ do
setRoomDataState newRoomData
broadcastUserData

3
backend/src/WebServer.hs
View file

@ -15,6 +15,7 @@ import Control.Monad.Except
import Network.HTTP.Types
import Network.Wai
import Network.Wai.Handler.Warp (run)
import Network.Wai.Middleware.RequestLogger (logStdoutDev)
import RoomDataHandler (roomDataHandler)
import State.ConnectedClientsState
( MonadConnectedClientsRead (..),
@ -165,5 +166,5 @@ runWebServer ::
m ()
runWebServer = do
putStrLn "http://localhost:8081/"
runWebApp >>= liftIO . run 8081
runWebApp >>= liftIO . (run 8081 . logStdoutDev)
return ()