some renaming of classes and data types.

darcs-hash:20070929191238-72aca-ceb0f2a89b35460e87cf9ff935f786b5a6028fb5.gz

1 files changed, 1 insertions, 1 deletions

diff --git a/Circle.hs b/Circle.hs
index 8d13cca..a60cdf9 100644
--- a/Circle.hs
+++ b/Circle.hs
@@ -33,7 +33,7 @@ import StackSet (integrate, peek)
 
 data Circle a = Circle deriving ( Read, Show )
 
-instance Layout Circle Window where
+instance LayoutClass Circle Window where
     doLayout Circle r s = do layout <- raiseFocus $ circleLayout r $ integrate s
                              return (layout, Nothing)