diff --git a/backend/converted.nix b/backend/converted.nix index 584d831..e7014db 100644 --- a/backend/converted.nix +++ b/backend/converted.nix @@ -10,6 +10,7 @@ , text , uuid , wai +, wai-extra , warp , websockets }: diff --git a/backend/default.nix b/backend/default.nix index 7a10366..d65d501 100644 --- a/backend/default.nix +++ b/backend/default.nix @@ -30,5 +30,14 @@ pkgs.dockerTools.buildImage { "9160/tcp" = { }; "8081/tcp" = { }; }; + Healthcheck = { + "Test" = [ + "CMD-SHELL" + "${pkgs.curl} -f http://0.0.0.0:8081" + ]; + "Interval" = 30000000000; + "Timeout" = 10000000000; + "Retries" = 3; + }; }; } diff --git a/backend/src/Types/RoomsState.hs b/backend/src/Types/RoomsState.hs index 8448593..145bbab 100644 --- a/backend/src/Types/RoomsState.hs +++ b/backend/src/Types/RoomsState.hs @@ -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,