Reduce flicker on workspace change.

darcs-hash:20070310041021-a5988-ec9227d72c9e307fa271d507f07b13bd1dd65362.gz

1 files changed, 1 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index ac9bfd4..ba79f8f 100644
--- a/Main.hs
+++ b/Main.hs
@@ -285,8 +285,8 @@ view o = do
     ws <- gets workspace
     let m = W.current ws
     when (n /= m) $ do
-        mapM_ hide   (W.index m ws)
         mapM_ reveal (W.index n ws)
+        mapM_ hide   (W.index m ws)
         windows $ W.view n
     where n = o-1