Commit bec38f7f authored by Bas Lijnse's avatar Bas Lijnse

Fixed initialisation of tcplisten

parent ddd8e2de
Pipeline #34655 passed with stage
in 6 minutes and 52 seconds
......@@ -96,7 +96,7 @@ where
clock = sdsFocus {start=zero,interval=poll} iworldTimespec
tcplisten :: !Int !Bool !(sds () r w) (ConnectionHandlers l r w) -> Task [l] | iTask l & iTask r & iTask w & RWShared sds
tcplisten port removeClosed sds handlers = Task eval
tcplisten port removeClosed sds handlers = Task evalinit
where
evalinit DestroyEvent _ iworld = (DestroyedResult, iworld)
evalinit event evalOpts=:{TaskEvalOpts|taskId} iworld
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment