From 236effe4663e4eb5e0510c22b1095ecb5d7defcb Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Wed, 20 Jun 2007 14:54:20 +0200
Subject: make some layouts more general.

darcs-hash:20070620125420-72aca-2802515a9c62727f8a8e53fdb480bbb5588f50e2.gz
---
 Accordion.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Accordion.hs')

diff --git a/Accordion.hs b/Accordion.hs
index 6d5369f..0b47c70 100644
--- a/Accordion.hs
+++ b/Accordion.hs
@@ -27,11 +27,11 @@ import Data.Ratio
 -- > import XMonadContrib.Accordion
 -- > defaultLayouts = [ accordion ]
 
-accordion :: Layout Window
+accordion :: Eq a => Layout a
 accordion = Layout { doLayout = accordionLayout
                     , modifyLayout = const $ return Nothing }
 
-accordionLayout :: Rectangle -> W.Stack Window -> X [(Window, Rectangle)]
+accordionLayout :: Eq a => Rectangle -> W.Stack a -> X [(a, Rectangle)]
 accordionLayout sc ws = return $ (zip ups tops) ++
                                [(W.focus ws, mainPane)] ++
                                (zip dns bottoms)
-- 
cgit v1.2.3