aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2008-05-08 12:46:40 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2008-05-08 12:46:40 +0200
commit4e43fa7d4d090293de00abdc5ae10cf4a529ea36 (patch)
tree8bc4c8ae4393eecb907a77919efe5b47e7eca1a7
parent178de8432992023e8b096bd42c62f162e5100ed9 (diff)
downloadxmonad-4e43fa7d4d090293de00abdc5ae10cf4a529ea36.tar.gz
xmonad-4e43fa7d4d090293de00abdc5ae10cf4a529ea36.tar.xz
xmonad-4e43fa7d4d090293de00abdc5ae10cf4a529ea36.zip
Make Mirror a newtype
darcs-hash:20080508104640-a5988-1f1f6134d3514e9a35b416b66e33c02f8669045c.gz
-rw-r--r--XMonad/Layout.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs
index 8e5dc95..18c72e7 100644
--- a/XMonad/Layout.hs
+++ b/XMonad/Layout.hs
@@ -112,7 +112,7 @@ splitVerticallyBy f = (mirrorRect *** mirrorRect) . splitHorizontallyBy f . mirr
------------------------------------------------------------------------
-- | Mirror a layout, compute its 90 degree rotated form.
-data Mirror l a = Mirror (l a) deriving (Show, Read)
+newtype Mirror l a = Mirror (l a) deriving (Show, Read)
instance LayoutClass l a => LayoutClass (Mirror l) a where
runLayout (W.Workspace i (Mirror l) ms) r = (map (second mirrorRect) *** fmap Mirror)