From 226f2012cb4497ee24e3258334c514c7105f6686 Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Mon, 19 Mar 2007 03:56:29 +0000
Subject: [PATCH] trace wsOnScreen when it's changed
---
Main.hs | 1 +
1 file changed, 1 insertion(+)
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