Main.hs: startupHook should be guarded by userCode

This commit is contained in:
Brent Yorgey
2008-03-25 17:12:41 +00:00
parent 46bc3bbd17
commit 6db444eb1a

View File

@@ -119,7 +119,7 @@ xmonad initxmc = do
-- manage the as-yet-unmanaged windows
mapM_ manage (ws \\ W.allWindows winset)
startupHook initxmc
userCode $ startupHook initxmc
-- main loop, for all you HOF/recursion fans out there.
forever_ $ handle =<< io (nextEvent dpy e >> getEvent e)