From e4e6098da9afaade72d756415e1cd85bf1fb0c11 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 10 Mar 2007 05:10:21 +0100 Subject: Reduce flicker on workspace change. darcs-hash:20070310041021-a5988-ec9227d72c9e307fa271d507f07b13bd1dd65362 --- Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3