aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Hooks
diff options
context:
space:
mode:
authorBrent Yorgey <byorgey@gmail.com>2007-12-15 15:32:27 +0100
committerBrent Yorgey <byorgey@gmail.com>2007-12-15 15:32:27 +0100
commite953f7a8249603089423c08dadb66e6049c43a5d (patch)
tree2e95709e21cf26c1c6a2059caf168fa8235aba2e /XMonad/Hooks
parent65ac3274f02196d468328a27c16a3da174cd1650 (diff)
downloadXMonadContrib-e953f7a8249603089423c08dadb66e6049c43a5d.tar.gz
XMonadContrib-e953f7a8249603089423c08dadb66e6049c43a5d.tar.xz
XMonadContrib-e953f7a8249603089423c08dadb66e6049c43a5d.zip
DynamicLog.hs: fix shadowing warning
darcs-hash:20071215143227-bd4d7-ae762306d69afc8af294c769ed91b8071c375ed1.gz
Diffstat (limited to 'XMonad/Hooks')
-rw-r--r--XMonad/Hooks/DynamicLog.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs
index 36f896d..a95cc29 100644
--- a/XMonad/Hooks/DynamicLog.hs
+++ b/XMonad/Hooks/DynamicLog.hs
@@ -145,7 +145,7 @@ pprWindowSet spaces urgents pp s = sepBy (ppWsSep pp) $ map fmt $ sortBy cmp
fmt w = printer pp (S.tag w)
where printer | S.tag w == this = ppCurrent
| S.tag w `elem` visibles = ppVisible
- | any (\x -> maybe False (== S.tag w) (S.findTag x s)) urgents = \pp -> ppUrgent pp . ppHidden pp
+ | any (\x -> maybe False (== S.tag w) (S.findTag x s)) urgents = \ppC -> ppUrgent ppC . ppHidden ppC
| isJust (S.stack w) = ppHidden
| otherwise = ppHiddenNoWindows