From 6958bd88b7031903652db239fdb6c1e4d94b945b Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Sat, 5 May 2007 19:54:15 +0200
Subject: make quickcheck tests friendlier to read.

darcs-hash:20070505175415-72aca-2129b8432f6f2ddb9d1498b0503b86c401020194.gz
---
 StackSet.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'StackSet.hs')

diff --git a/StackSet.hs b/StackSet.hs
index 7b47e06..3e35f53 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -46,7 +46,7 @@ data StackSet i j a =
         , stacks   :: !(M.Map i ([a], [a])) -- ^ screen -> (floating, normal)
         , focus    :: !(M.Map i a)          -- ^ the window focused in each stack
         , cache    :: !(M.Map a i)          -- ^ a cache of windows back to their stacks
-        } deriving (Eq, Show)
+        } deriving (Eq, Show, Read)
 
 -- The cache is used to check on insertion that we don't already have
 -- this window managed on another stack
-- 
cgit v1.2.3