diff options
Diffstat (limited to '')
-rw-r--r-- | Square.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |