ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH generalize internal shell functions

This commit is contained in:
Nathan Dwarshuis 2022-12-31 16:20:41 -05:00
parent 7e9d7d6d4b
commit e76050a7a1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/XMonad/Internal/Shell.hs
View File

@ -60,11 +60,11 @@ import qualified XMonad.Util.Run as XR
-- In contrast with high-level APIs like 'System.Process', this will leave no -- In contrast with high-level APIs like 'System.Process', this will leave no
-- trailing data structures to clean up, at the cost of being gross to look at -- trailing data structures to clean up, at the cost of being gross to look at
-- and possibly more error-prone. -- and possibly more error-prone.
runProcess :: P.ProcessConfig a b c -> IO ExitCode runProcess :: MonadUnliftIO m => P.ProcessConfig a b c -> m ExitCode
runProcess = withDefaultSignalHandlers . P.runProcess runProcess = withDefaultSignalHandlers . P.runProcess
-- | Run an action without xmonad's signal handlers. -- | Run an action without xmonad's signal handlers.
withDefaultSignalHandlers :: IO a -> IO a withDefaultSignalHandlers :: MonadUnliftIO m => m a -> m a
withDefaultSignalHandlers = withDefaultSignalHandlers =
bracket_ X.uninstallSignalHandlers X.installSignalHandlers bracket_ X.uninstallSignalHandlers X.installSignalHandlers