1 files changed, 1 insertions, 1 deletions

diff --git a/Presence/LocalPeerCred.hs b/Presence/LocalPeerCred.hs
index 990975ee..ecd77dae 100644
--- a/Presence/LocalPeerCred.hs
+++ b/Presence/LocalPeerCred.hs
@@ -62,7 +62,7 @@ as16 :: Word16 -> Word16
 as16 = id
 
 parseProcNet port host h = do
-        tcp <- hGetContents h
+        tcp <- hGetContents h -- Failed: tcp <- hFileSize h >>= hGet h . fromIntegral
         let u = do
                     ls <- listToMaybe . tail . tails . L.lines $ tcp
                     let ws = map L.words ls