twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-28 01:43:48 -07:00
Code Issues Packages Projects Releases Wiki Activity

Apply hlint 3.3 hints

Browse Source
This commit is contained in:
Tomas Janousek
2021-11-04 20:39:39 +00:00
parent e7f102bc9a
commit 5aff766a4c
20 changed files with 32 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Layout/Groups.hs
View File

@@ -239,7 +239,7 @@ removeDeleted z = filterZ_ (`elemZ` z)
findNewWindows :: Eq a => [a] -> Zipper (Group l a)
-> (Zipper (Group l a), [a])
findNewWindows as gs = (gs, foldrZ_ removePresent as gs)
where removePresent g as' = filter (not . flip elemZ (gZipper g)) as'
where removePresent g = filter (not . flip elemZ (gZipper g))
-- | Add windows to the focused group. If you need to create one,
-- use the given layout and an id from the given list.