From eeac9aa8cfba70574ac264ba2b12a61f387c0f29 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Sun, 27 May 2007 09:44:38 +0200
Subject: Be a bit more conservative with -O flags, and GC. Hope to avoid
 runtime GC bug

darcs-hash:20070527074438-9c5c1-af8256d1690de2b48e86f2085106f74954c0738b
---
 Operations.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index ed062c3..4c8c3e3 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -22,7 +22,7 @@ import Data.List            (genericIndex, intersectBy)
 import Data.Bits            ((.|.))
 import qualified Data.Map as M
 
-import System.Mem (performGC)
+-- import System.Mem (performGC)
 import Control.Monad.State
 import Control.Monad.Reader
 import Control.Arrow
@@ -140,7 +140,7 @@ refresh = do
 
     setTopFocus
     clearEnterEvents
-    io performGC -- really helps 
+--  io performGC -- really helps 
 
 -- | clearEnterEvents.  Remove all window entry events from the event queue.
 clearEnterEvents :: X ()
-- 
cgit v1.2.3