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 --- DragPane.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'DragPane.hs') diff --git a/DragPane.hs b/DragPane.hs index 38445c0..f90a5be 100644 --- a/DragPane.hs +++ b/DragPane.hs @@ -63,7 +63,7 @@ data DragPane a = data DragType = Horizontal | Vertical deriving ( Show, Read ) -instance Layout DragPane Window where +instance LayoutClass DragPane Window where doLayout d@(DragPane _ Vertical _ _) = doLay id d doLayout d@(DragPane _ Horizontal _ _) = doLay mirrorRect d handleMessage = handleMess -- cgit v1.2.3