diff options
| author | joe <joe@jerkface.net> | 2013-06-17 18:48:54 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2013-06-17 18:48:54 -0400 |
| commit | cc93b83b5a8c9e00839777c59991c5eb8cf0d75a (patch) | |
| tree | d1e0b933129704778340983f6cdd02a225972171 | |
| parent | 7e8af335398be37523ff19244225b84d48e027ff (diff) | |
failed experiment with hGet instead of hGetContents
| -rw-r--r-- | Presence/LocalPeerCred.hs | 2 |
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 | |||
| 62 | as16 = id | 62 | as16 = id |
| 63 | 63 | ||
| 64 | parseProcNet port host h = do | 64 | parseProcNet port host h = do |
| 65 | tcp <- hGetContents h | 65 | tcp <- hGetContents h -- Failed: tcp <- hFileSize h >>= hGet h . fromIntegral |
| 66 | let u = do | 66 | let u = do |
| 67 | ls <- listToMaybe . tail . tails . L.lines $ tcp | 67 | ls <- listToMaybe . tail . tails . L.lines $ tcp |
| 68 | let ws = map L.words ls | 68 | let ws = map L.words ls |