diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-01-22 01:04:41 +0100 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-01-22 01:04:41 +0100 |
| commit | 96369c9c174b02e10554cc8d3338c8e6ac870217 (patch) | |
| tree | 43e66ca876b4a0805796669b6ce5be1649c387aa /XMonad/Util/Run.hs | |
| parent | 38a92562d05fdb3cc002eccbb0e0afd9aa5b1df3 (diff) | |
| download | XMonadContrib-96369c9c174b02e10554cc8d3338c8e6ac870217.tar.gz XMonadContrib-96369c9c174b02e10554cc8d3338c8e6ac870217.tar.xz XMonadContrib-96369c9c174b02e10554cc8d3338c8e6ac870217.zip | |
Create a new session for spawnPiped processes
Ignore-this: 37529c5fe8b4bf1b97fffb043bb3dfb0
darcs-hash:20090122000441-25a6b-becd6e77cacaeedd73bddc96b8059c89cbb97bca.gz
Diffstat (limited to 'XMonad/Util/Run.hs')
| -rw-r--r-- | XMonad/Util/Run.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Util/Run.hs b/XMonad/Util/Run.hs index dfc90b9..eb9d7ff 100644 --- a/XMonad/Util/Run.hs +++ b/XMonad/Util/Run.hs @@ -31,7 +31,7 @@ module XMonad.Util.Run ( ) where import System.Posix.IO -import System.Posix.Process (executeFile, forkProcess) +import System.Posix.Process (executeFile, forkProcess, createSession) import Control.Concurrent (threadDelay) import Control.Exception (try) import System.IO @@ -130,6 +130,7 @@ spawnPipe x = do h <- fdToHandle wr hSetBuffering h LineBuffering forkProcess $ do + createSession dupTo rd stdInput executeFile "/bin/sh" False ["-c", x] Nothing return h |