aboutsummaryrefslogtreecommitdiffstats
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
commita25a97710d48a4109a52fed29164afd6429b7cfe (patch)
tree1ed90603ce610f4a7cb0e6da0ac9e58fd475b73d
parent6d7c76d08052c73c90c495df3843a065918812f4 (diff)
downloadxmonad-a25a97710d48a4109a52fed29164afd6429b7cfe.tar.gz
xmonad-a25a97710d48a4109a52fed29164afd6429b7cfe.tar.xz
xmonad-a25a97710d48a4109a52fed29164afd6429b7cfe.zip
UNDO: use 'spawn' rather than runProcess, to report errors asynchronously, avoiding zombies
darcs-hash:20071119023712-cba2c-ac278350de0f73e350912575af41c3c93c757ca8.gz
-rw-r--r--XMonad/Core.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index d55b2e2..84b1311 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -325,7 +325,9 @@ recompile = do
["Error detected while loading xmonad configuration file: " ++ src]
++ lines ghcErr ++ ["","Please check the file for errors."]
- spawn $ "xmessage '" ++ msg ++ "'"
+ waitForProcess =<< runProcess "xmessage" [msg]
+ Nothing Nothing Nothing Nothing Nothing
+ return ()
-- | Run a side effecting action with the current workspace. Like 'when' but
whenJust :: Monad m => Maybe a -> (a -> m ()) -> m ()