trace wsOnScreen when it's changed

2025-05-19 08:30:21 -07:00 · 2007-03-19 03:56:29 +00:00 · 2007-03-19 03:56:29 +00:00 · 226f2012cb
commit 226f2012cb
parent 92a8ad32d4
1 changed files with 1 additions and 0 deletions
--- 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