diff options
author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-12-27 01:35:01 +0100 |
---|---|---|
committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-12-27 01:35:01 +0100 |
commit | d100f1a335b4366b99f49c6594c63a5e3a40c2bd (patch) | |
tree | 431b002b66ea937896bce08acb512664ed482f5c | |
parent | cbca3f90da8a21d5b5d929748604aec78ccb0ebb (diff) | |
download | XMonadContrib-d100f1a335b4366b99f49c6594c63a5e3a40c2bd.tar.gz XMonadContrib-d100f1a335b4366b99f49c6594c63a5e3a40c2bd.tar.xz XMonadContrib-d100f1a335b4366b99f49c6594c63a5e3a40c2bd.zip |
Fix the createSession bug in spawnPipe
Ignore-this: 2d7f8746eb657036d39f3b9aac22b3c9
Both the new XMonad.Core.xfork function and spawnPipe call createSession, calling
this function twice results in an error.
darcs-hash:20091227003501-25a6b-5a23d578f0a0f368e28041b7be7defb532dd9ef3.gz
-rw-r--r-- | XMonad/Util/Run.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/XMonad/Util/Run.hs b/XMonad/Util/Run.hs index fe1949c..c884818 100644 --- a/XMonad/Util/Run.hs +++ b/XMonad/Util/Run.hs @@ -32,7 +32,7 @@ module XMonad.Util.Run ( ) where import System.Posix.IO -import System.Posix.Process (executeFile, createSession) +import System.Posix.Process (executeFile) import Control.Concurrent (threadDelay) import Control.Exception (try) -- use OldException with base 4 import System.IO @@ -136,8 +136,6 @@ spawnPipe x = io $ do h <- fdToHandle wr hSetBuffering h LineBuffering xfork $ do - createSession - uninstallSignalHandlers dupTo rd stdInput executeFile "/bin/sh" False ["-c", x] Nothing closeFd rd |