refresh after starting

This commit is contained in:
Spencer Janssen 2007-06-30 05:03:46 +00:00
parent e74e8050d0
commit 2efa369dfc

View File

@ -93,7 +93,7 @@ main = do
, w <- W.integrate' (W.stack wk) ] , w <- W.integrate' (W.stack wk) ]
mapM_ manage ws -- find new windows mapM_ manage ws -- find new windows
logHook refresh
-- main loop, for all you HOF/recursion fans out there. -- main loop, for all you HOF/recursion fans out there.
forever $ handle =<< io (nextEvent dpy e >> getEvent e) forever $ handle =<< io (nextEvent dpy e >> getEvent e)