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.gz

1 files changed, 2 insertions, 2 deletions

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