From 30e75ac8bd16e4addd33c20b2d956753606272a7 Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@gmail.com>
Date: Tue, 25 Mar 2008 18:12:41 +0100
Subject: Main.hs: startupHook should be guarded by userCode

darcs-hash:20080325171241-bd4d7-a979bcfacd914c6566b7d3afc701f95b0d62f34d
---
 XMonad/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3