Now assigns tty for resource id.

1 files changed, 5 insertions, 3 deletions

diff --git a/Presence/LocalPeerCred.hs b/Presence/LocalPeerCred.hs
index 2d5c0628..14f5234a 100644
--- a/Presence/LocalPeerCred.hs
+++ b/Presence/LocalPeerCred.hs
@@ -107,15 +107,17 @@ unmap6mapped4 addr = addr
 identifyTTY tty_pids uid inode = do
     pid <- scanProc (show uid) (L.unpack inode)
     -- putStrLn $ "scanProc --> "++show pid
-    flip (maybe (return Nothing)) pid $ \(pid,ttydev) -> do
+    flip (maybe (return (Nothing,Nothing))) pid $ \(pid,ttydev) -> do
     tty <- ttyOrDisplay pid ttydev
     -- putStrLn $ "users = " ++ show tty_pids
     dts <- ttyToXorgs tty_pids
     -- 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)
-    return tty'
+    let tty' = if take 3 tty=="tty" 
+                then Just (L.pack tty) 
+                else lookup (parseTty tty) (map (first parseTty) dts)
+    return (tty',Just pid)
     where
         parseTty :: String -> Float
         parseTty = read .  tail . dropWhile (/=':')