diff options
| -rw-r--r-- | XMonad/Util/Run.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/XMonad/Util/Run.hs b/XMonad/Util/Run.hs index 77c3b0c..30696f5 100644 --- a/XMonad/Util/Run.hs +++ b/XMonad/Util/Run.hs @@ -32,10 +32,8 @@ module XMonad.Util.Run ( ) where import System.Posix.IO -import System.Posix.Process (executeFile) -import System.Posix.Types (ProcessID) +import System.Posix.Process (createSession, executeFile, forkProcess) import Control.Concurrent (threadDelay) -import Control.Exception.Extensible (try,SomeException) import System.IO import System.Process (runInteractiveProcess) import XMonad @@ -68,7 +66,7 @@ runProcessWithInput cmd args input = io $ do -- | Wait is in μ (microseconds) runProcessWithInputAndWait :: MonadIO m => FilePath -> [String] -> String -> Int -> m () runProcessWithInputAndWait cmd args input timeout = io $ do - xfork $ do + _ <- xfork $ do (pin, pout, perr, _) <- runInteractiveProcess cmd args Nothing Nothing hPutStr pin input hFlush pin @@ -107,9 +105,11 @@ it makes use of shell interpretation by relying on @$HOME@ and interpolation, whereas the safeSpawn example can be safe because Firefox doesn't need any arguments if it is just being started. -} safeSpawn :: MonadIO m => FilePath -> [String] -> m () -safeSpawn prog args = liftIO $ do - try $ xfork $ executeFile prog True args Nothing :: IO (Either SomeException ProcessID) - return () +safeSpawn prog args = io $ void $ forkProcess $ do + uninstallSignalHandlers + _ <- createSession + executeFile prog True args Nothing + where void = (>> return ()) -- TODO: replace with Control.Monad.void -- | Simplified 'safeSpawn'; only takes a program (and no arguments): -- @@ -117,7 +117,7 @@ safeSpawn prog args = liftIO $ do safeSpawnProg :: MonadIO m => FilePath -> m () safeSpawnProg = flip safeSpawn [] --- | An alias for 'spawn'; the name emphasizes that one is calling out to a +-- | An alias for 'spawn'; the name emphasizes that one is calling out to a -- Turing-complete interpreter which may do things one dislikes; for details, see 'safeSpawn'. unsafeSpawn :: MonadIO m => String -> m () unsafeSpawn = spawn @@ -139,8 +139,8 @@ spawnPipe x = io $ do setFdOption wr CloseOnExec True h <- fdToHandle wr hSetBuffering h LineBuffering - xfork $ do - dupTo rd stdInput - executeFile "/bin/sh" False ["-c", x] Nothing + _ <- xfork $ do + _ <- dupTo rd stdInput + executeFile "/bin/sh" False ["-c", x] Nothing closeFd rd return h |