1 files changed, 4 insertions, 0 deletions

diff --git a/Presence/LocalPeerCred.hs b/Presence/LocalPeerCred.hs
index 14f5234a..f66421f8 100644
--- a/Presence/LocalPeerCred.hs
+++ b/Presence/LocalPeerCred.hs
@@ -104,6 +104,9 @@ parseProcNet port host h = do
 unmap6mapped4 addr@(SockAddrInet6 port _ (0,0,0xFFFF,a) _) = SockAddrInet port (toBE32 a)
 unmap6mapped4 addr = addr
 
+identifyTTY ::
+  [(W8.ByteString, ProcessID)]
+  -> UserID -> W8.ByteString -> IO (Maybe W8.ByteString, Maybe CPid)
 identifyTTY tty_pids uid inode = do
     pid <- scanProc (show uid) (L.unpack inode)
     -- putStrLn $ "scanProc --> "++show pid
@@ -122,6 +125,7 @@ identifyTTY tty_pids uid inode = do
         parseTty :: String -> Float
         parseTty = read .  tail . dropWhile (/=':') 
 
+ttyToXorgs :: Show a => [(t, a)] -> IO [([Char], t)]
 ttyToXorgs tty_pids = do
     dts' <- flip mapM tty_pids $ \(tty,pid) -> do
         cmd' <- readFile $ "/proc/"++show pid++"/cmdline"