Also print compilation errors to stderr

This commit is contained in:
Spencer Janssen
2008-03-24 22:58:57 +00:00
parent d948210935
commit 46bc3bbd17

View File

@@ -403,6 +403,9 @@ recompile force = io $ do
let msg = unlines $
["Error detected while loading xmonad configuration file: " ++ src]
++ 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
return (status == ExitSuccess)
else return True