Add ignoreForgottenRefs

Author: jorisdral

src-control/Control/RefCount.hs

@@ -29,11 +29,12 @@ module Control.RefCount (
 
   -- * Test API
   , checkForgottenRefs
+  , ignoreForgottenRefs
   ) where
 
 import           Control.DeepSeq
 import           Control.Exception (assert)
-import           Control.Monad (when)
+import           Control.Monad (void, when)
 import           Control.Monad.Class.MonadThrow
 import           Control.Monad.Primitive
 import           Data.Primitive.PrimVar
@@ -546,6 +547,10 @@ checkForgottenRefs = do
   where
 #endif
 
+-- | Run 'checkForgottenRefs', but ignore the resulting exception, if any.
+ignoreForgottenRefs :: IO ()
+ignoreForgottenRefs = void $ try @_ @SomeException $ checkForgottenRefs
+
 #ifdef NO_IGNORE_ASSERTS
 performMajorGCWithBlockingIfAvailable :: IO ()
 performMajorGCWithBlockingIfAvailable = do