diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-02 21:59:17 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-02 21:59:17 +0200 |
| commit | 792a2c7a32a57fe13c348f227fab6463d5ef3bb5 (patch) | |
| tree | 84e79bc569a1dc0cb4f4ab35369d060662822975 /tests | |
| parent | 5b6a01b9a27012a0b45051ea07c32f6879e54cfd (diff) | |
| download | metatile-792a2c7a32a57fe13c348f227fab6463d5ef3bb5.tar metatile-792a2c7a32a57fe13c348f227fab6463d5ef3bb5.zip | |
First steps to adding floating layer
darcs-hash:20070502195917-a5988-6831029fae89604c06ae962aaffdf81bfdad3297
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) |