summaryrefslogtreecommitdiffstats
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
commit30e75ac8bd16e4addd33c20b2d956753606272a7 (patch)
treedc8ef5028ff002a5026777dd87fdc7305b99d296
parent74b2d5022eabcfa528ac803576fe9844756e065f (diff)
downloadmetatile-30e75ac8bd16e4addd33c20b2d956753606272a7.tar
metatile-30e75ac8bd16e4addd33c20b2d956753606272a7.zip
Main.hs: startupHook should be guarded by userCode
darcs-hash:20080325171241-bd4d7-a979bcfacd914c6566b7d3afc701f95b0d62f34d
-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)