twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-01 04:31:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

Create a new session for forked processes

Browse Source
This commit is contained in:
Spencer Janssen
2009-01-22 00:04:23 +00:00
parent 34a547ce57
commit 4222dd9ad3
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Core.hs
View File

@@ -39,7 +39,7 @@ import Control.Monad.State
import Control.Monad.Reader import Control.Monad.Reader
import System.IO import System.IO
import System.Info 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.Signals
import System.Posix.IO import System.Posix.IO
import System.Posix.Types (ProcessID) import System.Posix.Types (ProcessID)
@@ -357,7 +357,8 @@ spawn x = spawnPID x >> return ()
-- | Like 'spawn', but returns the 'ProcessID' of the launched application -- | Like 'spawn', but returns the 'ProcessID' of the launched application
spawnPID :: MonadIO m => String -> m ProcessID 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 executeFile "/bin/sh" False ["-c", x] Nothing
where where
nullStdin = do nullStdin = do