From 1a73403366d498a478de256b8984c483d80ff563 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Thu, 8 May 2008 12:46:40 +0200 Subject: Make Mirror a newtype darcs-hash:20080508104640-a5988-1f1f6134d3514e9a35b416b66e33c02f8669045c --- XMonad/Layout.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- cgit v1.2.3