aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Operations.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs
index 1a25e99..243da7e 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -23,11 +23,11 @@ import Data.Bits ((.|.))
import Data.Ratio
import qualified Data.Map as M
--- import System.Mem (performGC)
import Control.Monad.State
import Control.Monad.Reader
import Control.Arrow
+import System.IO
import Graphics.X11.Xlib
import Graphics.X11.Xinerama (getScreenInfo)
import Graphics.X11.Xlib.Extras
@@ -197,6 +197,7 @@ refresh = do
setTopFocus
clearEnterEvents
+ -- withWindowSet (io . hPrint stderr) -- logging state changes!
-- io performGC -- really helps
-- | clearEnterEvents. Remove all window entry events from the event queue.