From 3d12f167d55c816925dfdc8f24ed029310fb2376 Mon Sep 17 00:00:00 2001
From: Daniel Schoepe <asgaroth_@gmx.de>
Date: Sat, 10 Jan 2009 23:13:10 +0100
Subject: Adjustments to new userCode function

darcs-hash:20090110221310-cb1c6-9692cf87a3e5c140204a20f2923d2b0dd8913cde.gz
---
 XMonad/Hooks/UrgencyHook.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Hooks')

diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs
index 0900957..b41285e 100644
--- a/XMonad/Hooks/UrgencyHook.hs
+++ b/XMonad/Hooks/UrgencyHook.hs
@@ -332,7 +332,7 @@ instance UrgencyHook h => EventHook (WithUrgencyHook h) where
                   callUrgencyHook wuh w
                 else
                   clearUrgency w
-              userCode =<< asks (logHook . config) -- call *after* IORef has been modified
+              userCodeDef () =<< asks (logHook . config) -- call *after* IORef has been modified
         DestroyWindowEvent {ev_window = w} ->
           clearUrgency w
         _ ->
@@ -342,7 +342,7 @@ instance UrgencyHook h => EventHook (WithUrgencyHook h) where
 callUrgencyHook :: UrgencyHook h => WithUrgencyHook h -> Window -> X ()
 callUrgencyHook (WithUrgencyHook hook UrgencyConfig { suppressWhen = sw, remindWhen = rw }) w =
     whenX (not <$> shouldSuppress sw w) $ do
-        userCode $ urgencyHook hook w
+        userCodeDef () $ urgencyHook hook w
         case rw of
             Repeatedly times int -> addReminder w int $ Just times
             Every int            -> addReminder w int Nothing
-- 
cgit v1.2.3