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 | 1a73403366d498a478de256b8984c483d80ff563 (patch) | |
| tree | 8bc4c8ae4393eecb907a77919efe5b47e7eca1a7 | |
| parent | 9dea76265da2672eb200c2e7b1b5ab96ef7cb987 (diff) | |
| download | metatile-1a73403366d498a478de256b8984c483d80ff563.tar metatile-1a73403366d498a478de256b8984c483d80ff563.zip | |
Make Mirror a newtype
darcs-hash:20080508104640-a5988-1f1f6134d3514e9a35b416b66e33c02f8669045c
| -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) |