From 96369c9c174b02e10554cc8d3338c8e6ac870217 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Thu, 22 Jan 2009 01:04:41 +0100
Subject: Create a new session for spawnPiped processes
Ignore-this: 37529c5fe8b4bf1b97fffb043bb3dfb0
darcs-hash:20090122000441-25a6b-becd6e77cacaeedd73bddc96b8059c89cbb97bca.gz
---
XMonad/Util/Run.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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
--
cgit v1.2.3