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
---
 Circle.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Circle.hs')

diff --git a/Circle.hs b/Circle.hs
index e8d4a86..32f8b34 100644
--- a/Circle.hs
+++ b/Circle.hs
@@ -27,11 +27,11 @@ import StackSet (integrate)
 --
 -- > import XMonadContrib.Circle
 
-circle :: Layout Window
+circle :: Layout a
 circle = Layout { doLayout = \r -> circleLayout r . integrate,
                   modifyLayout = return . const Nothing }
 
-circleLayout :: Rectangle -> [Window] -> X [(Window, Rectangle)]
+circleLayout :: Rectangle -> [a] -> X [(a, Rectangle)]
 circleLayout _ []     = return []
 circleLayout r (w:ws) = return $ (w, center r) : (zip ws sats)
     where sats = map (satellite r) $ take (length ws) [0, pi * 2 / fromIntegral (length ws) ..]
-- 
cgit v1.2.3