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 --- MagicFocus.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'MagicFocus.hs') diff --git a/MagicFocus.hs b/MagicFocus.hs index 44a6c09..8da3439 100644 --- a/MagicFocus.hs +++ b/MagicFocus.hs @@ -34,10 +34,10 @@ import StackSet data MagicFocus l a = MagicFocus (l a) deriving ( Show , Read ) -instance (Layout l Window) => Layout (MagicFocus l) Window where +instance (LayoutClass l Window) => LayoutClass (MagicFocus l) Window where doLayout = magicFocus -magicFocus :: Layout l Window => MagicFocus l Window -> Rectangle +magicFocus :: LayoutClass l Window => MagicFocus l Window -> Rectangle -> Stack Window -> X ([(Window, Rectangle)], Maybe (MagicFocus l Window)) magicFocus (MagicFocus l) r s = withWindowSet $ \wset -> do -- cgit v1.2.3