From 273c6756d0732ec94d561db45ad4f9a25d3507f9 Mon Sep 17 00:00:00 2001
From: daniel <daniel@wagner-home.com>
Date: Sun, 3 Feb 2008 21:28:52 +0100
Subject: let enter dismiss compile errors

darcs-hash:20080203202852-c98ca-e5c645e2332821ccc99587ba6562932860f6d9e6
---
 XMonad/Core.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3