From cc93b83b5a8c9e00839777c59991c5eb8cf0d75a Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Mon, 17 Jun 2013 18:48:54 -0400
Subject: failed experiment with hGet instead of hGetContents

---
 Presence/LocalPeerCred.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3