diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-05-08 12:46:40 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-05-08 12:46:40 +0200 |
| commit | 4e43fa7d4d090293de00abdc5ae10cf4a529ea36 (patch) | |
| tree | 8bc4c8ae4393eecb907a77919efe5b47e7eca1a7 | |
| parent | 178de8432992023e8b096bd42c62f162e5100ed9 (diff) | |
| download | xmonad-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.hs | 2 |
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) |