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 --- Square.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Square.hs') diff --git a/Square.hs b/Square.hs index c4c0a05..83ddb6b 100644 --- a/Square.hs +++ b/Square.hs @@ -42,7 +42,7 @@ import StackSet ( integrate ) data Square a = Square deriving ( Read, Show ) -instance Layout Square a where +instance LayoutClass Square a where pureLayout Square r s = arrange (integrate s) where arrange ws@(_:_) = map (\w->(w,rest)) (init ws) ++ [(last ws,sq)] arrange [] = [] -- actually, this is an impossible case -- cgit v1.2.3