Release a RefTracker even if the corresponding finaliser throws an …

…error
IntersectMBO · Jan 7, 2025 · 2880e5e · 2880e5e
1 parent e80f7f2
commit 2880e5e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src-control/Control/RefCount.hs b/src-control/Control/RefCount.hs
@@ -249,8 +249,8 @@ releaseRef ::
   -> m ()
 releaseRef ref@Ref{refobj} = do
     assertNoDoubleRelease ref
-    decrementRefCounter (getRefCounter refobj)
     releaseRefTracker ref
+    decrementRefCounter (getRefCounter refobj)
 
 {-# COMPLETE DeRef #-}
 #if MIN_VERSION_GLASGOW_HASKELL(9,0,0,0)