diff options
| author | Daniel Schoepe <asgaroth_@gmx.de> | 2009-01-10 23:13:10 +0100 |
|---|---|---|
| committer | Daniel Schoepe <asgaroth_@gmx.de> | 2009-01-10 23:13:10 +0100 |
| commit | 3d12f167d55c816925dfdc8f24ed029310fb2376 (patch) | |
| tree | 9be8830473af3fd525416148080c6685b77c9f6c /XMonad/Hooks/UrgencyHook.hs | |
| parent | 3abc1121a3a0d9b0a0397999d7b71d4d1d851e93 (diff) | |
| download | XMonadContrib-3d12f167d55c816925dfdc8f24ed029310fb2376.tar.gz XMonadContrib-3d12f167d55c816925dfdc8f24ed029310fb2376.tar.xz XMonadContrib-3d12f167d55c816925dfdc8f24ed029310fb2376.zip | |
Adjustments to new userCode function
darcs-hash:20090110221310-cb1c6-9692cf87a3e5c140204a20f2923d2b0dd8913cde.gz
Diffstat (limited to 'XMonad/Hooks/UrgencyHook.hs')
| -rw-r--r-- | XMonad/Hooks/UrgencyHook.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |