update Mosaic for latest changes.

darcs-hash:20070610145816-72aca-d935bc9ead6eff049c1b09681727c38522b2e2c9.gz

1 files changed, 2 insertions, 2 deletions

diff --git a/Mosaic.hs b/Mosaic.hs
index 1f1eda5..61d19ba 100644
--- a/Mosaic.hs
+++ b/Mosaic.hs
@@ -30,7 +30,7 @@ import System.Random ( StdGen, Random, mkStdGen, randomR )
 import Data.Ratio
 import Graphics.X11.Xlib
 import XMonad hiding ( trace )
-import Operations ( Resize(Shrink, Expand) )
+import Operations ( full, Resize(Shrink, Expand) )
 import qualified Data.Map as M
 import Data.List ( sort )
 import Data.Typeable ( Typeable )
@@ -68,7 +68,7 @@ flexibility :: Double
 flexibility = 0.1
 
 mosaic :: Double -> Double -> M.Map NamedWindow [WindowHint] -> Layout
-mosaic delta tileFrac hints = Layout { doLayout = mosaicL tileFrac hints, modifyLayout = mlayout }
+mosaic delta tileFrac hints = full { doLayout = mosaicL tileFrac hints, 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