From 2e07689ceadaea1853c1228d14346853223be942 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Sat, 29 Sep 2007 21:12:38 +0200 Subject: some renaming of classes and data types. darcs-hash:20070929191238-72aca-ceb0f2a89b35460e87cf9ff935f786b5a6028fb5.gz --- Accordion.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Accordion.hs') diff --git a/Accordion.hs b/Accordion.hs index 91dc8f1..b2fbec8 100644 --- a/Accordion.hs +++ b/Accordion.hs @@ -10,7 +10,7 @@ -- Stability : unstable -- Portability : unportable -- --- Layout that puts non-focused windows in ribbons at the top and bottom +-- LayoutClass that puts non-focused windows in ribbons at the top and bottom -- of the screen. ----------------------------------------------------------------------------- @@ -34,7 +34,7 @@ import Data.Ratio data Accordion a = Accordion deriving ( Read, Show ) -instance Layout Accordion Window where +instance LayoutClass Accordion Window where pureLayout _ sc ws = zip ups tops ++ [(W.focus ws, mainPane)] ++ zip dns bottoms where ups = W.up ws -- cgit v1.2.3