From 87f467e21f8e94bf990f0807ebec5fffcd944fb7 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.gz --- Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Main.hs') 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