Add some logging

backend/converted.nix

@@ -10,6 +10,7 @@
 , text
 , uuid
 , wai
+, wai-extra
 , warp
 , websockets
 }:

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;
+    };
   };
 }

backend/src/Types/RoomsState.hs

@@ -29,8 +29,9 @@ updateRoomState ::
   m ()
 updateRoomState newData = do
   state <- getRoomsState <$> ask
-  _ <- atomically $ swapTVar state newData
+  liftIO $ putStrLn "Upating room state"
-  return ()
+  atomically $ writeTVar state newData
+  liftIO $ putStrLn "Done Upating room state"
 
 getRoomState ::
   ( HasRoomsState env,