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(-)

(limited to 'XMonad/Util/Run.hs')

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