diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-03-13 22:50:09 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-03-13 22:50:09 +0100 |
commit | e76f642712b14dd00bf23c5cd12d219b11293be7 (patch) | |
tree | fdc43219acb295e6523935ac723d1bb62754d02c | |
parent | 43a9e5f204d7df44304388e08fb1499e5b9e6c63 (diff) | |
download | xmonad-e76f642712b14dd00bf23c5cd12d219b11293be7.tar.gz xmonad-e76f642712b14dd00bf23c5cd12d219b11293be7.tar.xz xmonad-e76f642712b14dd00bf23c5cd12d219b11293be7.zip |
Sloppy typos in spawn.
darcs-hash:20070313215009-a5988-2bd5423b68531d6bb83e3de013a0f1b94bfbef00.gz
-rw-r--r-- | XMonad.hs | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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 () |