mirror of
https://github.com/xmonad/xmonad.git
synced 2025-09-02 03:33:47 -07:00
Also print compilation errors to stderr
This commit is contained in:
@@ -403,6 +403,9 @@ recompile force = io $ do
|
|||||||
let msg = unlines $
|
let msg = unlines $
|
||||||
["Error detected while loading xmonad configuration file: " ++ src]
|
["Error detected while loading xmonad configuration file: " ++ src]
|
||||||
++ lines ghcErr ++ ["","Please check the file for errors."]
|
++ lines ghcErr ++ ["","Please check the file for errors."]
|
||||||
|
-- nb, the ordering of printing, then forking, is crucial due to
|
||||||
|
-- lazy evaluation
|
||||||
|
hPutStrLn stderr msg
|
||||||
doubleFork $ executeFile "xmessage" True ["-default", "okay", msg] Nothing
|
doubleFork $ executeFile "xmessage" True ["-default", "okay", msg] Nothing
|
||||||
return (status == ExitSuccess)
|
return (status == ExitSuccess)
|
||||||
else return True
|
else return True
|
||||||
|
Reference in New Issue
Block a user