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 | 6d7c76d08052c73c90c495df3843a065918812f4 (patch) | |
| tree | 0cf73cee5de8e7626c15545ff70677b1c552c2e0 /XMonad | |
| parent | 04b7c446c15c36a84142cb2d636ec1ed12c57473 (diff) | |
| download | xmonad-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.hs | 4 |
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 () |