From 28172bd22b6c9627e8423d0f3fb5756004d1a147 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@galois.com>
Date: Mon, 19 Nov 2007 03:37:12 +0100
Subject: UNDO: use 'spawn' rather than runProcess, to report errors
 asynchronously, avoiding zombies

darcs-hash:20071119023712-cba2c-ac278350de0f73e350912575af41c3c93c757ca8
---
 XMonad/Core.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'XMonad')

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 ()
-- 
cgit v1.2.3