Commit 21fc8a3e authored by Mart Lubbers's avatar Mart Lubbers

Merge branch 'fix-tcplisten' into 'master'

Fixed initialisation of tcplisten

See merge request !364
parents 62337ebb bec38f7f
Pipeline #34656 passed with stage
in 6 minutes and 46 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