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 | e8b06cf749fb78c66a9ede1c4a56f90f8eb498c6 (patch) | |
| tree | 84e79bc569a1dc0cb4f4ab35369d060662822975 /tests | |
| parent | ea2d958cc11f161cc94ca014df3afc528f3fd797 (diff) | |
| download | xmonad-e8b06cf749fb78c66a9ede1c4a56f90f8eb498c6.tar.gz xmonad-e8b06cf749fb78c66a9ede1c4a56f90f8eb498c6.tar.xz xmonad-e8b06cf749fb78c66a9ede1c4a56f90f8eb498c6.zip | |
First steps to adding floating layer
darcs-hash:20070502195917-a5988-6831029fae89604c06ae962aaffdf81bfdad3297.gz
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) |