Also print compilation errors to stderr

darcs-hash:20080324225857-a5988-623d8ab2a19923bccfe32f8adb23320004912831

1 files changed, 3 insertions, 0 deletions

diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index ecbca29..397c39a 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -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