callUrgencyHook after adjustUrgents

So folks can readUrgents inside their urgencyHook, should they so desire.

darcs-hash:20080714043020-78224-b75d65a74cda046369c256bcd3d0813c20219204.gz

1 files changed, 2 insertions, 2 deletions

diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs
index 96c2832..3c1d1d9 100644
--- a/XMonad/Hooks/UrgencyHook.hs
+++ b/XMonad/Hooks/UrgencyHook.hs
@@ -273,10 +273,10 @@ instance UrgencyHook h => EventHook (WithUrgencyHook h) where
           when (t == propertyNotify && a == wM_HINTS) $ withDisplay $ \dpy -> do
               WMHints { wmh_flags = flags } <- io $ getWMHints dpy w
               if (testBit flags urgencyHintBit) then do
-                  -- Call the urgencyHook.
-                  callUrgencyHook wuh w
                   -- Add to list of urgents.
                   adjustUrgents (\ws -> if elem w ws then ws else w : ws)
+                  -- Call the urgencyHook.
+                  callUrgencyHook wuh w
                 else do
                   -- Remove from list of urgents.
                   adjustUrgents (delete w)