diff options
| -rw-r--r-- | tests/Properties.hs | 6 |
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 |