trace wsOnScreen when it's changed

darcs-hash:20070319035629-b9aa7-641cdc7e9d399b5a6bf83b59bbfcd2a58d918cd4

1 files changed, 1 insertions, 0 deletions

diff --git a/Main.hs b/Main.hs
index 345e3f8..a877728 100644
--- a/Main.hs
+++ b/Main.hs
@@ -342,6 +342,7 @@ view o = do
 		        return 0
 		    Just sc -> return sc
 		modify $ \s -> s { wsOnScreen = M.insert n sc (M.filter (/=sc) ws2sc) }
+		gets wsOnScreen >>= trace . show
 		windows $ W.view n
 		mapM_ hide (W.index m ws)
 	setTopFocus