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
---
 Spiral.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Spiral.hs')

diff --git a/Spiral.hs b/Spiral.hs
index 6701bb6..3be033d 100644
--- a/Spiral.hs
+++ b/Spiral.hs
@@ -4,6 +4,7 @@ import Graphics.X11.Xlib
 import Operations
 import Data.Ratio
 import XMonad
+import qualified StackSet as W
 
 --
 -- Spiral layout
@@ -32,7 +33,7 @@ blend scale ratios = zipWith (+) ratios scaleFactors
       scaleFactors = map (* step) . reverse . take len $ [0..]
 
 spiral :: Rational -> Layout
-spiral scale = Layout { doLayout = fibLayout,
+spiral scale = Layout { doLayout = \r -> fibLayout r . W.integrate,
                         modifyLayout = \m -> return $ fmap resize $ fromMessage m }
     where
       fibLayout sc ws = return $ zip ws rects
-- 
cgit v1.2.3