Use bracket_

freckle · Sep 24, 2024 · 97bf3d0 · 97bf3d0
1 parent 55d5d4a
commit 97bf3d0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Stackctl/CancelHandler.hs b/src/Stackctl/CancelHandler.hs
@@ -11,7 +11,7 @@ import System.Posix.Signals
 
 -- | Install a 'keyboardSignal' handler, run an action, then remove it
 with :: MonadUnliftIO m => m a -> m b -> m b
-with f = bracket (install f) (const remove) . const
+with f = bracket_ (install f) remove
 
 -- | Install a 'keyboardSignal' handler that runs the given action once
 install :: MonadUnliftIO m => m a -> m ()