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 $ 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