diff options
| author | daniel <daniel@wagner-home.com> | 2008-02-03 21:28:52 +0100 |
|---|---|---|
| committer | daniel <daniel@wagner-home.com> | 2008-02-03 21:28:52 +0100 |
| commit | d6ff01a3811b776cde95b5787358b876f2abc2d6 (patch) | |
| tree | 92c27283a9e0e383f2c8ac14fc3636f41f47af6e /XMonad/Core.hs | |
| parent | 3121af115ee5516b33da84b7e62ccefe565e7e23 (diff) | |
| download | xmonad-d6ff01a3811b776cde95b5787358b876f2abc2d6.tar.gz xmonad-d6ff01a3811b776cde95b5787358b876f2abc2d6.tar.xz xmonad-d6ff01a3811b776cde95b5787358b876f2abc2d6.zip | |
let enter dismiss compile errors
darcs-hash:20080203202852-c98ca-e5c645e2332821ccc99587ba6562932860f6d9e6.gz
Diffstat (limited to 'XMonad/Core.hs')
| -rw-r--r-- | XMonad/Core.hs | 2 |
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) |