From 2f5252ad19893c0c06508b7e957b3bf65df43436 Mon Sep 17 00:00:00 2001
From: Jamie Webb <gentoo-haskell@vcs.intern>
Date: Wed, 3 Oct 2007 03:08:49 +0200
Subject: Layout -> LayoutClass for ResizableTile and MosaicAlt
darcs-hash:20071003010849-74a73-1c9c06b44245497b9c64e19776eef5a29b63e998.gz
---
MosaicAlt.hs | 2 +-
ResizableTile.hs | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/MosaicAlt.hs b/MosaicAlt.hs
index 07c0f3d..715fbf0 100644
--- a/MosaicAlt.hs
+++ b/MosaicAlt.hs
@@ -66,7 +66,7 @@ resetAlt = ResetAlt
type Areas = M.Map Window Rational
data MosaicAlt a = MosaicAlt Areas deriving ( Show, Read )
-instance Layout MosaicAlt Window where
+instance LayoutClass MosaicAlt Window where
description _ = "MosaicAlt"
doLayout (MosaicAlt areas) rect stack =
return (arrange rect stack areas', Just $ MosaicAlt areas')
diff --git a/ResizableTile.hs b/ResizableTile.hs
index 77ec8fd..6d9a1d8 100644
--- a/ResizableTile.hs
+++ b/ResizableTile.hs
@@ -40,7 +40,7 @@ data MirrorResize = MirrorShrink | MirrorExpand deriving Typeable
instance Message MirrorResize
data Tall a = Tall Int Rational Rational [Rational] deriving (Show, Read)
-instance Layout Tall a where
+instance LayoutClass Tall a where
doLayout (Tall nmaster _ frac mfrac) r =
return . (\x->(x,Nothing)) .
ap zip (tile frac (mfrac ++ repeat 1) r nmaster . length) . W.integrate
--
cgit v1.2.3