From 792a2c7a32a57fe13c348f227fab6463d5ef3bb5 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 2 May 2007 21:59:17 +0200
Subject: First steps to adding floating layer

darcs-hash:20070502195917-a5988-6831029fae89604c06ae962aaffdf81bfdad3297
---
 tests/Properties.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests')

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)
-- 
cgit v1.2.3