From 2d59488cbdd6c21a970de9ed3a87288e5935813e Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Mon, 19 Mar 2007 04:56:29 +0100
Subject: trace wsOnScreen when it's changed

darcs-hash:20070319035629-b9aa7-641cdc7e9d399b5a6bf83b59bbfcd2a58d918cd4.gz
---
 Main.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Main.hs')

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
-- 
cgit v1.2.3