From 46ed3c2c770d1c6d2ec342edf4fd1b59f4571f2f Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 21 May 2007 20:45:04 +0200 Subject: Read instance for StackSet darcs-hash:20070521184504-a5988-348b1e31532e664b6ad4bbb9ed82e57b53c41417 --- StackSet.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'StackSet.hs') 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 -- cgit v1.2.3