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 _)) =
     -- see also: Network.Socket.getPeerCred
     return Nothing
 
+{- // Removed due to no call-sites
 getLocalPeerCred :: SocketLike sock => sock -> IO (Maybe UserID)
 getLocalPeerCred sock = do
     addr <- getPeerName sock
@@ -72,6 +73,7 @@ getLocalPeerCred sock = do
                      where sndOf3 (pid,uid,gid) = uid
  where
     validate uid = Just uid -- TODO
+-}
 
 from16 :: Word16 -> Int
 from16 = fromEnum