1 files changed, 1 insertions, 1 deletions
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

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
15	main = do	15	main = do
16	setVerbose XMisc	16	setVerbose XMisc
17	bind <- getBindAddress "8889" True	17	bind <- getBindAddress "8889" True
18	serv <- streamServer (withSession sesh) [bind]	18	serv <- forkStreamServer (withSession sesh) [bind]
19		19
20	wtid <- getAcceptLoopThreadId serv	20	wtid <- getAcceptLoopThreadId serv
21	mtid <- deRefWeak wtid	21	mtid <- deRefWeak wtid