summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/Properties.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/Properties.hs b/tests/Properties.hs
index eb40539..b93c3a6 100644
--- a/tests/Properties.hs
+++ b/tests/Properties.hs
@@ -111,9 +111,9 @@ invariant (s :: T) = and
]
where
- ws = [ focus t : left t ++ right t
- | w <- workspace (current s) : map workspace (visible s) ++ hidden s
- , let t = stack w, t /= Empty ]
+ ws = concat [ focus t : left t ++ right t
+ | w <- workspace (current s) : map workspace (visible s) ++ hidden s
+ , let t = stack w, t /= Empty ] :: [Char]
noDuplicates = nub ws == ws
-- validScreens = monotonic . sort . M. . (W.current s : W.visible : W$ s