Commit908ab16

committed

Fix fordotnet#113 - Async.Sleep in .NETCore profiles does not invoke error continuation (changeset 1305124)

1 parent8d21149 commit908ab16Copy full SHA for 908ab16

File tree

-2

lines changed

-2

lines changed

Lines changed: 7 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -1474,8 +1474,13 @@ namespace Microsoft.FSharp.Control`
`1474`	`1474`	`static memberSleep(dueTime:int):Async<unit>=`
`1475`	`1475`	`// use combo protectedPrimitiveWithResync + continueWith instead of AwaitTask so we can pass cancellation token to the Delay task`
`1476`	`1476`	`unprotectedPrimitiveWithResync(fun({aux=aux}asargs)->`
`1477`		`- TaskHelpers.continueWithUnit(Task.Delay(dueTime, aux.token), args)`
`1478`		`-)`
	`1477`	`+let mutablethe_exn=null`
	`1478`	`+lettask=try Task.Delay(dueTime, aux.token)`
	`1479`	`+with e-> the_exn<- e;null`
	`1480`	`+match the_exnwith`
	`1481`	`+\|null-> TaskHelpers.continueWithUnit(task, args)`
	`1482`	`+\| e-> aux.econt e`
	`1483`	`+)`
`1479`	`1484`	`#else`
`1480`	`1485`	`static memberSleep(dueTime):Async<unit>=`
`1481`	`1486`	`unprotectedPrimitiveWithResync(fun({aux=aux}asargs)->`

Comments

(0)