From 2f5252ad19893c0c06508b7e957b3bf65df43436 Mon Sep 17 00:00:00 2001 From: Jamie Webb Date: Wed, 3 Oct 2007 03:08:49 +0200 Subject: Layout -> LayoutClass for ResizableTile and MosaicAlt darcs-hash:20071003010849-74a73-1c9c06b44245497b9c64e19776eef5a29b63e998.gz --- ResizableTile.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'ResizableTile.hs') 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