commented out implementation state logging. if someone has a client, we can enable this

This commit is contained in:
Don Stewart
2007-06-01 08:56:26 +00:00
parent b46a449baf
commit 0be589ae8c

View File

@@ -23,11 +23,11 @@ import Data.Bits ((.|.))
import Data.Ratio import Data.Ratio
import qualified Data.Map as M import qualified Data.Map as M
-- import System.Mem (performGC)
import Control.Monad.State import Control.Monad.State
import Control.Monad.Reader import Control.Monad.Reader
import Control.Arrow import Control.Arrow
import System.IO
import Graphics.X11.Xlib import Graphics.X11.Xlib
import Graphics.X11.Xinerama (getScreenInfo) import Graphics.X11.Xinerama (getScreenInfo)
import Graphics.X11.Xlib.Extras import Graphics.X11.Xlib.Extras
@@ -197,6 +197,7 @@ refresh = do
setTopFocus setTopFocus
clearEnterEvents clearEnterEvents
-- withWindowSet (io . hPrint stderr) -- logging state changes!
-- io performGC -- really helps -- io performGC -- really helps
-- | clearEnterEvents. Remove all window entry events from the event queue. -- | clearEnterEvents. Remove all window entry events from the event queue.