From 5f1312128d87961231d5431af0885711a01cd120 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Sat, 23 Jun 2007 23:09:52 +0200 Subject: make everything work with new doLayout. This modifies all the contrib modules to work (so far as I know) with the new contrib layout. The exception is the LayoutHooks module, which isn't used. It exports an API that is inherently unsafe, so far as I can tell (and always has been). darcs-hash:20070623210952-72aca-1993ca13dc6996b59fedacc271c03fbaf87eabaa.gz --- HintedTile.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'HintedTile.hs') diff --git a/HintedTile.hs b/HintedTile.hs index 3df8014..ef0bb96 100644 --- a/HintedTile.hs +++ b/HintedTile.hs @@ -44,7 +44,8 @@ tall = tile splitHorizontally divideVertically tile split divide nmaster delta frac = Layout { doLayout = \r w' -> let w = W.integrate w' in do { hints <- sequence (map getHints w) - ; return $ zip w (tiler frac r `uncurry` splitAt nmaster hints) } + ; return (zip w (tiler frac r `uncurry` splitAt nmaster hints) + , Nothing) } , modifyLayout = \m -> return $ fmap resize (fromMessage m) `mplus` fmap incmastern (fromMessage m) } -- cgit v1.2.3