twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-05 06:31:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

DynamicLog.hs: fix shadowing warning

Browse Source
This commit is contained in:
Brent Yorgey
2007-12-15 14:32:27 +00:00
parent 7064ac5ec9
commit e75a72d63f
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Hooks/DynamicLog.hs
View File

@@ -145,7 +145,7 @@ pprWindowSet spaces urgents pp s = sepBy (ppWsSep pp) $ map fmt $ sortBy cmp
fmt w = printer pp (S.tag w) fmt w = printer pp (S.tag w)
where printer | S.tag w == this = ppCurrent where printer | S.tag w == this = ppCurrent
| S.tag w `elem` visibles = ppVisible | 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 | isJust (S.stack w) = ppHidden
| otherwise = ppHiddenNoWindows | otherwise = ppHiddenNoWindows