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

Apply hlint hints

Browse Source 
All hints are applied in one single commit, as a commit per hint would
result in 80+ separate commits—tihs is really just too much noise.

Related: https://github.com/xmonad/xmonad-contrib/issues/537
This commit is contained in:
slotThe
2021-06-06 16:11:17 +02:00
parent b96899afb6
commit bd5b969d9b
222 changed files with 1119 additions and 1193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
tests/Instances.hs
View File

@@ -33,8 +33,7 @@ instance Arbitrary (Selection a) where
arbitrary = do
nm <- arbNat
st <- arbNat
nr <- arbPos
return $ Sel nm (st + nm) nr
Sel nm (st + nm) <$> arbPos
--
-- The all important Arbitrary instance for StackSet.
@@ -176,5 +175,5 @@ arbitraryWindow :: NonEmptyWindowsStackSet -> Gen Window
arbitraryWindow (NonEmptyWindowsStackSet x) = do
let ws = allWindows x
-- We know that there are at least 1 window in a NonEmptyWindowsStackSet.
idx <- choose (0, (length ws) - 1)
idx <- choose (0, length ws - 1)
return $ ws !! idx