Remove redundant force calls in updatePeerDb

This code is already strict enough. ixset-typed is a set and a strict list of maps. When updated, ixset-typed will force the set and maps to whnf, and insert the new element into a Set. Sets are strict in their elements and maps are strict in their keys, and the value type `PeerEntry` is itself strict in its components.
kadena-io · Nov 14, 2024 · b4a4db0 · b4a4db0
1 parent 75ab5b5
commit b4a4db0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/P2P/Node/PeerDB.hs b/src/P2P/Node/PeerDB.hs
@@ -436,7 +436,7 @@ updatePeerDb (PeerDb _ _ _ lock var) a f
     = withMVar lock . const . atomically . modifyTVar' var $ \s ->
         case getOne $ getEQ a s of
             Nothing -> s
-            Just x -> force $ updateIx a (force $ f x) s
+            Just x -> updateIx a (f x) s
 
 incrementActiveSessionCount :: PeerDb -> PeerInfo -> IO ()
 incrementActiveSessionCount db i