Read instance for StackSet

darcs-hash:20070521184504-a5988-348b1e31532e664b6ad4bbb9ed82e57b53c41417

1 files changed, 4 insertions, 4 deletions

diff --git a/StackSet.hs b/StackSet.hs
index 4feb203..c591d14 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -115,17 +115,17 @@ data StackSet i a sid =
              , current :: !(Screen i a sid) -- currently focused workspace
              , visible :: [Screen i a sid]  -- non-focused workspaces, visible in xinerama
              , hidden  :: [Workspace i a]   -- workspaces not visible anywhere
-             } deriving (Show, Eq)
+             } deriving (Show, Read, Eq)
 
 -- Visible workspaces, and their Xinerama screens.
 data Screen i a sid = Screen { workspace :: !(Workspace i a), screen :: !sid }
-    deriving (Show, Eq)
+    deriving (Show, Read, Eq)
 
 -- 
 -- A workspace is just a tag - its index - and a stack
 --
 data Workspace i a = Workspace  { tag :: !i, stack :: Stack a }
-    deriving (Show, Eq)
+    deriving (Show, Read, Eq)
 
 -- 
 -- A stack is a cursor onto a (possibly empty) window list.
@@ -143,7 +143,7 @@ data Stack a = Empty
              | Node { focus  :: !a        -- focused thing in this set
                     , left   :: [a]       -- clowns to the left
                     , right  :: [a] }     -- jokers to the right
-    deriving (Show, Eq)
+    deriving (Show, Read, Eq)
 
 -- ---------------------------------------------------------------------
 -- Construction