summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-03-13 22:50:09 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-03-13 22:50:09 +0100
commitc6fc852b3fd2f098117dafb69ce8ebc6b65e3d44 (patch)
treefdc43219acb295e6523935ac723d1bb62754d02c
parent5341c579b074e3e0ead3f6be224f1dd9c354139e (diff)
downloadmetatile-c6fc852b3fd2f098117dafb69ce8ebc6b65e3d44.tar
metatile-c6fc852b3fd2f098117dafb69ce8ebc6b65e3d44.zip
Sloppy typos in spawn.
darcs-hash:20070313215009-a5988-2bd5423b68531d6bb83e3de013a0f1b94bfbef00
-rw-r--r--XMonad.hs6
1 files changed, 4 insertions, 2 deletions
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 ()