diff options
| author | Joe Crayne <joe@jerkface.net> | 2020-01-11 12:27:39 -0500 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2020-01-11 12:27:39 -0500 |
| commit | 0e3c922142177b093d90cba81d0b6712172e1f57 (patch) | |
| tree | f0e0c1346c8a01c48c95334e199c348f847ff664 /dht/examples/dhtd.hs | |
| parent | f45bf9ee967e61553229dcad5225b61120c6a63d (diff) | |
Renamed streamServer to forkStreamServer.
Diffstat (limited to 'dht/examples/dhtd.hs')
| -rw-r--r-- | dht/examples/dhtd.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 1909 | , mbTox = mbtox | 1909 | , mbTox = mbtox |
| 1910 | , sessionsVar = ssvar | 1910 | , sessionsVar = ssvar |
| 1911 | } | 1911 | } |
| 1912 | srv <- streamServer (withSession session) [SockAddrUnix "dht.sock"] | 1912 | srv <- forkStreamServer (withSession session) [SockAddrUnix "dht.sock"] |
| 1913 | return ( do atomically $ readTVar signalQuit >>= check | 1913 | return ( do atomically $ readTVar signalQuit >>= check |
| 1914 | quitListening srv | 1914 | quitListening srv |
| 1915 | , readTVar signalQuit >>= check | 1915 | , readTVar signalQuit >>= check |