From aa7b17533695687a9c31070f5d9845c52493856e Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 11 Jun 2007 20:34:39 +0200
Subject: Updates to work with recent API changes

darcs-hash:20070611183439-a5988-c3d6cc194fa83f012ab49d6d79130ff459dcdfe1.gz
---
 Circle.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Circle.hs')

diff --git a/Circle.hs b/Circle.hs
index 9e30c83..18edf17 100644
--- a/Circle.hs
+++ b/Circle.hs
@@ -2,9 +2,10 @@ module XMonadContrib.Circle (circle) where -- actually it's an ellipse
 
 import Graphics.X11.Xlib
 import XMonad
+import StackSet (integrate)
 
 circle :: Layout
-circle = Layout { doLayout = circleLayout,
+circle = Layout { doLayout = \r -> circleLayout r . integrate,
                   modifyLayout = return . const Nothing }
 
 circleLayout :: Rectangle -> [Window] -> X [(Window, Rectangle)]
-- 
cgit v1.2.3