diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Properties.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Properties.hs b/tests/Properties.hs index 4924e01..3b57dff 100644 --- a/tests/Properties.hs +++ b/tests/Properties.hs @@ -167,7 +167,7 @@ prop_shift_reversible r (x :: T) = prop_fullcache x = cached == allvals where cached = sort . keys $ cache x - allvals = sort . concat . elems $ stacks x + allvals = sort . concat . map (uncurry (++)) . elems $ stacks x _ = x :: T prop_currentwsvisible x = (current x) `elem` (visibleWorkspaces x) |