just one run

snoyberg · Dec 14, 2024 · d1abe68 · d1abe68
1 parent 828ea03
commit d1abe68
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/resourcet/Control/Monad/Trans/Resource.hs b/resourcet/Control/Monad/Trans/Resource.hs
@@ -189,9 +189,9 @@ release' istate key act = E.mask_ $ do
 -- @since 0.3.0
 runResourceT :: MonadUnliftIO m => ResourceT m a -> m a
 runResourceT action = withRunInIO $ \run -> do
-    E.mask_ $ do
-        (a, cleanup) <- run $ evalResourceT action
-        run cleanup
+    E.mask_ $ run $ do
+        (a, cleanup) <- evalResourceT action
+        cleanup
         pure a
 
 -- | Like 'runResourceT', but this one does *not* run the cleanup action