Updates to work with recent API changes

darcs-hash:20070611183439-a5988-c3d6cc194fa83f012ab49d6d79130ff459dcdfe1.gz

1 files changed, 2 insertions, 1 deletions

diff --git a/Mosaic.hs b/Mosaic.hs
index 61d19ba..34e536e 100644
--- a/Mosaic.hs
+++ b/Mosaic.hs
@@ -31,6 +31,7 @@ import Data.Ratio
 import Graphics.X11.Xlib
 import XMonad hiding ( trace )
 import Operations ( full, Resize(Shrink, Expand) )
+import qualified StackSet as W
 import qualified Data.Map as M
 import Data.List ( sort )
 import Data.Typeable ( Typeable )
@@ -68,7 +69,7 @@ flexibility :: Double
 flexibility = 0.1
 
 mosaic :: Double -> Double -> M.Map NamedWindow [WindowHint] -> Layout
-mosaic delta tileFrac hints = full { doLayout = mosaicL tileFrac hints, modifyLayout = return . mlayout }
+mosaic delta tileFrac hints = full { doLayout = \r -> mosaicL tileFrac hints r . W.integrate, modifyLayout = return . mlayout }
     where mlayout x = (m1 `fmap` fromMessage x) `mplus` (m2 `fmap` fromMessage x)
           m1 Shrink = mosaic delta (tileFrac/(1+delta)) hints
           m1 Expand = mosaic delta (tileFrac*(1+delta)) hints