1 files changed, 3 insertions, 1 deletions

diff --git a/dht/src/Network/StreamServer.hs b/dht/src/Network/StreamServer.hs
index 79398e8e..9a5b8593 100644
--- a/dht/src/Network/StreamServer.hs
+++ b/dht/src/Network/StreamServer.hs
@@ -10,7 +10,7 @@ module Network.StreamServer
     , ServerConfig(..)
     , withSession
     , quitListening
-    , dummyServerHandle
+  --, dummyServerHandle
     , listenSocket
     ) where
 
@@ -52,6 +52,7 @@ data ServerHandle = ServerHandle Socket (Weak ThreadId)
 listenSocket :: ServerHandle -> RestrictedSocket
 listenSocket (ServerHandle sock _) = restrictSocket sock
 
+{- // Removed, bit-rotted and there are no call sites
 -- | Create a useless do-nothing 'ServerHandle'.
 dummyServerHandle :: IO ServerHandle
 dummyServerHandle = do
@@ -59,6 +60,7 @@ dummyServerHandle = do
     let sock = MkSocket 0 AF_UNSPEC NoSocketType 0 mvar
     thread <- mkWeakThreadId <=< forkIO $ return ()
     return (ServerHandle sock thread)
+-}
 
 removeSocketFile :: SockAddr -> IO ()
 removeSocketFile (SockAddrUnix fname) = removeFile fname