diff options
Diffstat (limited to '')
| -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 () |