aboutsummaryrefslogtreecommitdiffstats
path: root/Mosaic.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Mosaic.hs')
-rw-r--r--Mosaic.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Mosaic.hs b/Mosaic.hs
index d4e09b3..2879d21 100644
--- a/Mosaic.hs
+++ b/Mosaic.hs
@@ -90,7 +90,7 @@ defaultArea = 1
flexibility :: Double
flexibility = 0.1
-mosaic :: Double -> Double -> M.Map NamedWindow [WindowHint] -> Layout
+mosaic :: Double -> Double -> M.Map NamedWindow [WindowHint] -> Layout Window
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