1 files changed, 4 insertions, 2 deletions

diff --git a/Presence/LocalPeerCred.hs b/Presence/LocalPeerCred.hs
index d3b8d189..b6ec9491 100644
--- a/Presence/LocalPeerCred.hs
+++ b/Presence/LocalPeerCred.hs
@@ -57,7 +57,7 @@ getLocalPeerCred sock = do
     addr <- getPeerName sock
     muid <- getLocalPeerCred' addr
     case muid of
-        Just uid -> return (Just uid)
+        Just (uid,inode) -> return (Just uid)
         Nothing  -> trace "proc failed." $ fmap (validate . CUid . fromIntegral . sndOf3) (getPeerCred sock)
                      where sndOf3 (pid,uid,gid) = uid
  where
@@ -81,10 +81,12 @@ parseProcNet port host h = do
                           addr <- fmap parseHex $ listToMaybe zs
                           port <- fmap (fromIntegral . as16 . decode . parseHex) $ listToMaybe $ snd (Prelude.splitAt 1 zs)
                           let ys' = snd (Prelude.splitAt 5 (tail ys))
+                              ys'' = snd (Prelude.splitAt 2 ys')
                           uid <- listToMaybe ys'
+                          inode <- listToMaybe ys''
                           let peer = (port,decode addr)
                               user = toEnum (read (unpack uid) ::Int) ::UserID  -- CUid . fromIntegral $ (read (unpack uid)::Int)
-                          return $ {- trace ("peer:"++show(peer,user)) -} (peer,user)
+                          return $ {-trace ("peer:"++show(peer,user,inode))-} (peer,(user,inode))
                           )
                     fmap snd . listToMaybe $ filter ((==(port,host)).fst) rs 
         {- trace ("found: "++show u) -}