From e76f642712b14dd00bf23c5cd12d219b11293be7 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Tue, 13 Mar 2007 22:50:09 +0100 Subject: Sloppy typos in spawn. darcs-hash:20070313215009-a5988-2bd5423b68531d6bb83e3de013a0f1b94bfbef00.gz --- XMonad.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'XMonad.hs') diff --git a/XMonad.hs b/XMonad.hs index 670fdd1..61696d9 100644 --- a/XMonad.hs +++ b/XMonad.hs @@ -24,7 +24,7 @@ import StackSet (StackSet) import Control.Monad.State import System.IO -import System.Posix.Process (newSession, executeFile) +import System.Posix.Process (createSession, executeFile, forkProcess) import Graphics.X11.Xlib import Control.Exception @@ -73,7 +73,9 @@ io = liftIO -- | spawn. Launch an external application spawn :: String -> X () -spawn x = io $ forkProcess (do newSession; executeFile "/bin/sh" False ["-c", x] Nothing) +spawn x = do + io $ forkProcess $ do createSession; executeFile "/bin/sh" False ["-c", x] Nothing + return () -- | Run a side effecting action with the current workspace. Like 'when' but whenJust :: Maybe a -> (a -> X ()) -> X () -- cgit v1.2.3