Added vt switch reporting to output

1 files changed, 4 insertions, 2 deletions

diff --git a/consolation.hs b/consolation.hs
index 2b181dc1..0c576dfc 100644
--- a/consolation.hs
+++ b/consolation.hs
@@ -68,7 +68,9 @@ onLogin cs start = \e -> do
         forkIO . start getActive
     -- forM_ (Map.elems dead   ) $ putStrLn . ("gone: "++) . show
 
-onTTY cs vtnum = atomically $ writeTVar (csActiveTTY cs) vtnum
+onTTY outvar cs vtnum = do
+    logit outvar $ "switch: " <> tshow vtnum
+    atomically $ writeTVar (csActiveTTY cs) vtnum
 
 retryWhen var pred = do
     value <- var
@@ -166,7 +168,7 @@ main = do
     inotify <- initINotify
 
     -- get active tty
-    mtty <- monitorTTY (onTTY cs)
+    mtty <- monitorTTY (onTTY outvar cs)
     atomically $ retryWhen (readTVar $ csActiveTTY cs) (==0)
 
     -- read utmp