From 4e43fa7d4d090293de00abdc5ae10cf4a529ea36 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 8 May 2008 12:46:40 +0200
Subject: Make Mirror a newtype

darcs-hash:20080508104640-a5988-1f1f6134d3514e9a35b416b66e33c02f8669045c.gz
---
 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