aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBrent Yorgey <byorgey@gmail.com>2008-03-25 18:12:41 +0100
committerBrent Yorgey <byorgey@gmail.com>2008-03-25 18:12:41 +0100
commit521ebb40591155a4c6c9e0308f05ef1bda19e9c1 (patch)
treedc8ef5028ff002a5026777dd87fdc7305b99d296
parent62193f928d45955c137c073683bf57b8b65ce4be (diff)
downloadxmonad-521ebb40591155a4c6c9e0308f05ef1bda19e9c1.tar.gz
xmonad-521ebb40591155a4c6c9e0308f05ef1bda19e9c1.tar.xz
xmonad-521ebb40591155a4c6c9e0308f05ef1bda19e9c1.zip
Main.hs: startupHook should be guarded by userCode
darcs-hash:20080325171241-bd4d7-a979bcfacd914c6566b7d3afc701f95b0d62f34d.gz
-rw-r--r--XMonad/Main.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Main.hs b/XMonad/Main.hs
index e3aca18..3840c53 100644
--- a/XMonad/Main.hs
+++ b/XMonad/Main.hs
@@ -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)