diff options
| -rw-r--r-- | Operations.hs | 3 |
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. |