twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-04 06:01:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

Use derived Show and Read instances for Mirror

Browse Source
This commit is contained in:
Spencer Janssen
2007-09-20 20:57:11 +00:00
parent 197c834331
commit d43384cfc7
1 changed files with 1 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Operations.hs
View File

@@ -375,13 +375,7 @@ mirrorRect :: Rectangle -> Rectangle
mirrorRect (Rectangle rx ry rw rh) = (Rectangle ry rx rh rw) mirrorRect (Rectangle rx ry rw rh) = (Rectangle ry rx rh rw)
-- | Mirror a layout, compute its 90 degree rotated form. -- | Mirror a layout, compute its 90 degree rotated form.
data Mirror l a = Layout l a => Mirror (l a) data Mirror l a = Mirror (l a) deriving (Show, Read)
instance Layout l a => Show (Mirror l a) where
show (Mirror l) = "Mirror "++show l
instance Layout l a => Read (Mirror l a) where
readsPrec _ s = case take (length "Mirror ") s of
"Mirror " -> map (\ (l,s') -> (Mirror l,s')) $ reads $ drop (length "Mirror ") s
_ -> []
instance Layout l a => Layout (Mirror l) a where instance Layout l a => Layout (Mirror l) a where
doLayout (Mirror l) r s = do (wrs, ml') <- doLayout l (mirrorRect r) s doLayout (Mirror l) r s = do (wrs, ml') <- doLayout l (mirrorRect r) s