summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordaniel <daniel@wagner-home.com>2008-02-03 21:28:52 +0100
committerdaniel <daniel@wagner-home.com>2008-02-03 21:28:52 +0100
commit273c6756d0732ec94d561db45ad4f9a25d3507f9 (patch)
tree92c27283a9e0e383f2c8ac14fc3636f41f47af6e
parentedc466856bf8723c5439f12663230b5b78320b9f (diff)
downloadmetatile-273c6756d0732ec94d561db45ad4f9a25d3507f9.tar
metatile-273c6756d0732ec94d561db45ad4f9a25d3507f9.zip
let enter dismiss compile errors
darcs-hash:20080203202852-c98ca-e5c645e2332821ccc99587ba6562932860f6d9e6
-rw-r--r--XMonad/Core.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index dbcee94..feeae6e 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -378,7 +378,7 @@ recompile force = io $ do
let msg = unlines $
["Error detected while loading xmonad configuration file: " ++ src]
++ lines ghcErr ++ ["","Please check the file for errors."]
- doubleFork $ executeFile "xmessage" True [msg] Nothing
+ doubleFork $ executeFile "xmessage" True ["-default", "okay", msg] Nothing
return (status == ExitSuccess)
else return True
where getModTime f = catch (Just <$> getModificationTime f) (const $ return Nothing)