diff options
author | James Crayne <jim.crayne@gmail.com> | 2019-10-16 07:58:55 +0000 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-01-01 19:40:59 -0500 |
commit | 6894ac341a4e5691c72346bde9a26457d4e70460 (patch) | |
tree | 7ee2bf4b55b053bdbadfe65ad419e5f3199b4a76 /dht/Presence/LocalPeerCred.hs | |
parent | c4dcf8374e218e741f4c3120d889c420d8ca2edb (diff) |
Successful builds against newer network package
Built against both network-3.0.1.0 and network-3.1.0.0
Note, due to upstream issue, getting network-bsd-2.8.1.0 to cooperate with
network-3.0.1.0 requires a little finessing. The network-bsd package expects a
header(HsNetConfig.h) that network fails to provide. A simple work around is to
copy the header after running a newer version of the network configure script
from github.
Similar for network-3.1.0.0, but this time the header is HsNetworkConfig.h.
Diffstat (limited to 'dht/Presence/LocalPeerCred.hs')
-rw-r--r-- | dht/Presence/LocalPeerCred.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/dht/Presence/LocalPeerCred.hs b/dht/Presence/LocalPeerCred.hs index f68557e8..a7344434 100644 --- a/dht/Presence/LocalPeerCred.hs +++ b/dht/Presence/LocalPeerCred.hs | |||
@@ -62,6 +62,7 @@ getLocalPeerCred' (unmap6mapped4 -> addr@(SockAddrUnix _)) = | |||
62 | -- see also: Network.Socket.getPeerCred | 62 | -- see also: Network.Socket.getPeerCred |
63 | return Nothing | 63 | return Nothing |
64 | 64 | ||
65 | {- // Removed due to no call-sites | ||
65 | getLocalPeerCred :: SocketLike sock => sock -> IO (Maybe UserID) | 66 | getLocalPeerCred :: SocketLike sock => sock -> IO (Maybe UserID) |
66 | getLocalPeerCred sock = do | 67 | getLocalPeerCred sock = do |
67 | addr <- getPeerName sock | 68 | addr <- getPeerName sock |
@@ -72,6 +73,7 @@ getLocalPeerCred sock = do | |||
72 | where sndOf3 (pid,uid,gid) = uid | 73 | where sndOf3 (pid,uid,gid) = uid |
73 | where | 74 | where |
74 | validate uid = Just uid -- TODO | 75 | validate uid = Just uid -- TODO |
76 | -} | ||
75 | 77 | ||
76 | from16 :: Word16 -> Int | 78 | from16 :: Word16 -> Int |
77 | from16 = fromEnum | 79 | from16 = fromEnum |