diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2011-06-09 06:24:24 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2011-06-09 06:24:24 +0200 |
| commit | 62951855f589ba5d27167c7b556dd291d63e2213 (patch) | |
| tree | f6589f2182fe29e53af31f013b6d255061b033c3 | |
| parent | 922898fe9b64766537a6d35e19e4d8c5f6bffbda (diff) | |
| download | metatile-62951855f589ba5d27167c7b556dd291d63e2213.tar metatile-62951855f589ba5d27167c7b556dd291d63e2213.zip | |
Break a long line
Ignore-this: 5f4c8907066e1ea5df3f384a34951402
darcs-hash:20110609042424-1499c-bc1a04152e8f19d14d01604144b9d202affcc660
| -rw-r--r-- | XMonad/Core.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index 8ec0000..5fe8688 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -464,7 +464,8 @@ recompile force = io $ do ghcErr <- readFile err let msg = unlines $ ["Error detected while loading xmonad configuration file: " ++ src] - ++ lines (if (null ghcErr) then show status else ghcErr) ++ ["","Please check the file for errors."] + ++ lines (if null ghcErr then show status else ghcErr) + ++ ["","Please check the file for errors."] -- nb, the ordering of printing, then forking, is crucial due to -- lazy evaluation hPutStrLn stderr msg |