aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2007-11-19 03:37:12 +0100
committerDon Stewart <dons@galois.com>2007-11-19 03:37:12 +0100
commit6d7c76d08052c73c90c495df3843a065918812f4 (patch)
tree0cf73cee5de8e7626c15545ff70677b1c552c2e0 /XMonad
parent04b7c446c15c36a84142cb2d636ec1ed12c57473 (diff)
downloadxmonad-6d7c76d08052c73c90c495df3843a065918812f4.tar.gz
xmonad-6d7c76d08052c73c90c495df3843a065918812f4.tar.xz
xmonad-6d7c76d08052c73c90c495df3843a065918812f4.zip
use 'spawn' rather than runProcess, to report errors asynchronously, avoiding zombies
darcs-hash:20071119023712-cba2c-c034ed99f668ede81e7e1e247ff631ae9eda31f6.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Core.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index 84b1311..d55b2e2 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -325,9 +325,7 @@ recompile = do
["Error detected while loading xmonad configuration file: " ++ src]
++ lines ghcErr ++ ["","Please check the file for errors."]
- waitForProcess =<< runProcess "xmessage" [msg]
- Nothing Nothing Nothing Nothing Nothing
- return ()
+ spawn $ "xmessage '" ++ msg ++ "'"
-- | Run a side effecting action with the current workspace. Like 'when' but
whenJust :: Monad m => Maybe a -> (a -> m ()) -> m ()