Improved strictness

digitallyinduced · Feb 1, 2022 · 3439302 · 3439302
1 parent 72c366e
commit 3439302
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/IHP/DataSync/Controller.hs b/IHP/DataSync/Controller.hs
@@ -92,7 +92,7 @@ instance (
                                     Just record -> do
                                         -- Add the new record to 'watchedRecordIdsRef'
                                         -- Otherwise the updates and deletes will not be dispatched to the client
-                                        modifyIORef watchedRecordIdsRef (Set.insert id)
+                                        modifyIORef' watchedRecordIdsRef (Set.insert id)
 
                                         sendJSON DidInsert { subscriptionId, record }
                                     Nothing -> pure ()
@@ -113,7 +113,7 @@ instance (
                 channelSubscription <- pgListener
                         |> PGListener.subscribeJSON (ChangeNotifications.channelName tableNameRLS) callback
 
-                modifyIORef ?state (\state -> state |> modify #subscriptions (HashMap.insert subscriptionId Subscription { id = subscriptionId, channelSubscription }))
+                modifyIORef' ?state (\state -> state |> modify #subscriptions (HashMap.insert subscriptionId Subscription { id = subscriptionId, channelSubscription }))
 
                 sendJSON DidCreateDataSubscription { subscriptionId, requestId, result }
 
@@ -126,7 +126,7 @@ instance (
                     Just subscription -> pgListener |> PGListener.unsubscribe (get #channelSubscription subscription)
                     Nothing -> pure ()
 
-                modifyIORef ?state (\state -> state |> modify #subscriptions (HashMap.delete subscriptionId))
+                modifyIORef' ?state (\state -> state |> modify #subscriptions (HashMap.delete subscriptionId))
 
                 sendJSON DidDeleteDataSubscription { subscriptionId, requestId }