diff options
| -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) |