From 0e3c922142177b093d90cba81d0b6712172e1f57 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sat, 11 Jan 2020 12:27:39 -0500 Subject: Renamed streamServer to forkStreamServer. --- test/resourceExhausted.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'test') diff --git a/test/resourceExhausted.hs b/test/resourceExhausted.hs index 4cdef98e..c38784a5 100644 --- a/test/resourceExhausted.hs +++ b/test/resourceExhausted.hs @@ -15,7 +15,7 @@ sesh sock n h = do main = do setVerbose XMisc bind <- getBindAddress "8889" True - serv <- streamServer (withSession sesh) [bind] + serv <- forkStreamServer (withSession sesh) [bind] wtid <- getAcceptLoopThreadId serv mtid <- deRefWeak wtid -- cgit v1.2.3