From 346cc3269ee31062fa7eb560f90c4059c6279962 Mon Sep 17 00:00:00 2001
From: "joachim.fasting" <joachim.fasting@gmail.com>
Date: Wed, 20 Jun 2007 00:03:23 +0200
Subject: Fix type signatures.

Think this fixes the rest of the errors caused by the Layout change.

darcs-hash:20070619220323-ea16c-3274cd24d01bc932089ab88191ccda316ea93b01.gz
---
 Mosaic.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Mosaic.hs')

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
-- 
cgit v1.2.3