From 6db444eb1a425a7b8f91933d020b24e8c8e6e89f Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@gmail.com>
Date: Tue, 25 Mar 2008 17:12:41 +0000
Subject: [PATCH] Main.hs: startupHook should be guarded by userCode

---
 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)