diff options
author | David Roundy <droundy@darcs.net> | 2007-05-05 19:54:15 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-05-05 19:54:15 +0200 |
commit | a888d1eb750d9df5738dabfb29337d249f2cd230 (patch) | |
tree | 3e8c7b3a9e30f211129f0f80e9d745c7c93f0e0f /StackSet.hs | |
parent | d704d0139dd15e9edcd0f38d926d1b8c7760070a (diff) | |
download | metatile-a888d1eb750d9df5738dabfb29337d249f2cd230.tar metatile-a888d1eb750d9df5738dabfb29337d249f2cd230.zip |
make quickcheck tests friendlier to read.
darcs-hash:20070505175415-72aca-2129b8432f6f2ddb9d1498b0503b86c401020194
Diffstat (limited to 'StackSet.hs')
-rw-r--r-- | StackSet.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |