Add some logging
This commit is contained in:
parent
69aa82837c
commit
2ea2aa4abb
3 changed files with 13 additions and 2 deletions
|
@ -29,8 +29,9 @@ updateRoomState ::
|
|||
m ()
|
||||
updateRoomState newData = do
|
||||
state <- getRoomsState <$> ask
|
||||
_ <- atomically $ swapTVar state newData
|
||||
return ()
|
||||
liftIO $ putStrLn "Upating room state"
|
||||
atomically $ writeTVar state newData
|
||||
liftIO $ putStrLn "Done Upating room state"
|
||||
|
||||
getRoomState ::
|
||||
( HasRoomsState env,
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue