diff options
| author | Don Stewart <dons@galois.com> | 2007-11-19 03:37:12 +0100 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2007-11-19 03:37:12 +0100 |
| commit | a25a97710d48a4109a52fed29164afd6429b7cfe (patch) | |
| tree | 1ed90603ce610f4a7cb0e6da0ac9e58fd475b73d | |
| parent | 6d7c76d08052c73c90c495df3843a065918812f4 (diff) | |
| download | xmonad-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.hs | 4 |
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 () |