twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-30 19:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

tests: Apply hlint hints

Browse Source
This commit is contained in:
Tomas Janousek
2022-06-25 18:22:50 +01:00
parent 711b28f494
commit 79602bfec5
14 changed files with 46 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
tests/Properties/StackSet.hs
View File

@@ -58,7 +58,7 @@ invariant (s :: T) = and
-- inBounds = and [ w >=0 && w < size s | (w,sc) <- M.assocs (screens s) ]
monotonic [] = True
monotonic (x:[]) = True
monotonic [x] = True
monotonic (x:y:zs) | x == y-1 = monotonic (y:zs)
| otherwise = False
@@ -126,7 +126,7 @@ prop_empty (EmptyStackSet x) =
prop_empty_current (EmptyStackSet x) = currentTag x == head (tags x)
-- no windows will be a member of an empty workspace
prop_member_empty i (EmptyStackSet x) = member i x == False
prop_member_empty i (EmptyStackSet x) = not (member i x)
-- peek either yields nothing on the Empty workspace, or Just a valid window
prop_member_peek (x :: T) =