diff options
| -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 () |