diff --git a/src/XMonad/Core.hs b/src/XMonad/Core.hs index 6652531..11bd353 100644 --- a/src/XMonad/Core.hs +++ b/src/XMonad/Core.hs @@ -677,6 +677,8 @@ compile dirs method = -- waitForProcess =<< System.Process.runProcess, but without closing the err handle runProc cwd err exe args = do + hPutStrLn err $ unwords $ "$" : exe : args + hFlush err (_, _, _, h) <- createProcess_ "runProc" (proc exe args){ cwd = Just cwd, std_err = UseHandle err } waitForProcess h