From 8d0355c4281b59e532d6fd7397161a61a58a579b Mon Sep 17 00:00:00 2001 From: David Roundy Date: Tue, 12 Jun 2007 17:05:55 +0200 Subject: make focus, up and down complete functions. This is a rerun of my change to make (Stack a) never be empty. Gives us more type-safety. darcs-hash:20070612150555-72aca-5f6e43aa33979c71679a73b44d93f9e2b8f9d2a8 --- Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index ca6f5ad..0d0a442 100644 --- a/Main.hs +++ b/Main.hs @@ -88,11 +88,11 @@ main = do -- TODO, general iterators for these lists. sequence_ [ setInitialProperties w >> reveal w | wk <- map W.workspace (W.current winset : W.visible winset) - , w <- W.integrate (W.stack wk) ] + , w <- W.integrate' (W.stack wk) ] sequence_ [ setInitialProperties w >> hide w | wk <- W.hidden winset - , w <- W.integrate (W.stack wk) ] + , w <- W.integrate' (W.stack wk) ] mapM_ manage ws -- find new windows logHook -- cgit v1.2.3