From 0e3c922142177b093d90cba81d0b6712172e1f57 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sat, 11 Jan 2020 12:27:39 -0500
Subject: Renamed streamServer to forkStreamServer.

---
 dht/examples/dhtd.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'dht')

diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs
index ed0feacb..984afeed 100644
--- a/dht/examples/dhtd.hs
+++ b/dht/examples/dhtd.hs
@@ -1909,7 +1909,7 @@ main = do
                 , mbTox             = mbtox
                 , sessionsVar       = ssvar
                 }
-        srv <- streamServer (withSession session) [SockAddrUnix "dht.sock"]
+        srv <- forkStreamServer (withSession session) [SockAddrUnix "dht.sock"]
         return ( do atomically $ readTVar signalQuit >>= check
                     quitListening srv
                , readTVar signalQuit >>= check
-- 
cgit v1.2.3