diff options
author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-01-22 01:04:23 +0100 |
---|---|---|
committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-01-22 01:04:23 +0100 |
commit | 8e76042b5db259ef8573cba860255e801ebe482c (patch) | |
tree | eae855fae559c61e8b395caa10f721d2ea587dd0 | |
parent | e1def34de85c82441bee4b93a30cfee53daea0bc (diff) | |
download | xmonad-8e76042b5db259ef8573cba860255e801ebe482c.tar.gz xmonad-8e76042b5db259ef8573cba860255e801ebe482c.tar.xz xmonad-8e76042b5db259ef8573cba860255e801ebe482c.zip |
Create a new session for forked processes
Ignore-this: f5d9cf254a0b07ddbf204457b7783880
darcs-hash:20090122000423-25a6b-953d34966aee5389a1e13368b5ab2a9d5dd4f7d1.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Core.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index 543d859..e0afcda 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -39,7 +39,7 @@ import Control.Monad.State import Control.Monad.Reader import System.IO import System.Info -import System.Posix.Process (executeFile, forkProcess, getAnyProcessStatus) +import System.Posix.Process (executeFile, forkProcess, getAnyProcessStatus, createSession) import System.Posix.Signals import System.Posix.IO import System.Posix.Types (ProcessID) @@ -357,7 +357,8 @@ spawn x = spawnPID x >> return () -- | Like 'spawn', but returns the 'ProcessID' of the launched application spawnPID :: MonadIO m => String -> m ProcessID -spawnPID x = io . forkProcess . finally nullStdin $ +spawnPID x = io . forkProcess . finally nullStdin $ do + createSession executeFile "/bin/sh" False ["-c", x] Nothing where nullStdin = do |