diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-03-24 23:58:57 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-03-24 23:58:57 +0100 |
| commit | 62193f928d45955c137c073683bf57b8b65ce4be (patch) | |
| tree | e63491dc2a5e6839360db5581da62cd7444bc819 /XMonad/Core.hs | |
| parent | a06f1cab19d486953ed05bb3f2c2627fd94f29fd (diff) | |
| download | xmonad-62193f928d45955c137c073683bf57b8b65ce4be.tar.gz xmonad-62193f928d45955c137c073683bf57b8b65ce4be.tar.xz xmonad-62193f928d45955c137c073683bf57b8b65ce4be.zip | |
Also print compilation errors to stderr
darcs-hash:20080324225857-a5988-623d8ab2a19923bccfe32f8adb23320004912831.gz
Diffstat (limited to 'XMonad/Core.hs')
| -rw-r--r-- | XMonad/Core.hs | 3 |
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 |