make some layouts more general.

darcs-hash:20070620125420-72aca-2802515a9c62727f8a8e53fdb480bbb5588f50e2.gz

1 files changed, 2 insertions, 2 deletions

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) ..]