From 6800f47bf1303496a01e1ec51cb89432630d76b1 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Fri, 5 Jul 2013 14:25:50 -0400
Subject: save active local users as (user,tty,pid) tuples rather than JIDs.
 quieted debug prints in identifyTTY

---
 whosocket.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'whosocket.hs')

diff --git a/whosocket.hs b/whosocket.hs
index a8dcdff9..cbf3cbec 100644
--- a/whosocket.hs
+++ b/whosocket.hs
@@ -142,14 +142,14 @@ ttyToXorgs tty_pids = do
 
 identifyTTY tty_pids uid inode = do
     pid <- scanProc (show uid) (L.unpack inode)
-    putStrLn $ "scanProc --> "++show pid
+    -- putStrLn $ "scanProc --> "++show pid
     flip (maybe (return Nothing)) pid $ \(pid,ttydev) -> do
     tty <- ttyOrDisplay pid ttydev
-    putStrLn $ "users = " ++ show tty_pids
+    -- putStrLn $ "users = " ++ show tty_pids
     dts <- ttyToXorgs tty_pids
 
-    putStrLn $ "displays = " ++ show dts 
-    putStrLn $ "tty = " ++ show tty
+    -- putStrLn $ "displays = " ++ show dts 
+    -- putStrLn $ "tty = " ++ show tty
     -- -- displays = [(":5",Chunk "tty7" Empty)]
 
     let tty' = if take 3 tty=="tty" then Just (L.pack tty) else lookup (parseTty tty) (map (first parseTty) dts)
-- 
cgit v1.2.3