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 --- LayoutScreens.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'LayoutScreens.hs') diff --git a/LayoutScreens.hs b/LayoutScreens.hs index 7037ebe..bda3034 100644 --- a/LayoutScreens.hs +++ b/LayoutScreens.hs @@ -48,7 +48,7 @@ layoutScreens :: Int -> Layout Int -> X () layoutScreens nscr _ | nscr < 1 = trace $ "Can't layoutScreens with only " ++ show nscr ++ " screens." layoutScreens nscr l = do rtrect <- asks theRoot >>= getWindowRectangle - wss <- doLayout l rtrect W.Stack { W.focus=1, W.up=[],W.down=[1..nscr-1] } + (wss, _) <- doLayout l rtrect W.Stack { W.focus=1, W.up=[],W.down=[1..nscr-1] } modify $ \s -> s { xineScreens = map snd wss , statusGaps = take nscr $ (statusGaps s) ++ repeat (0,0,0,0) } -- cgit v1.2.3