From 95012469dfff65fa7029f6da27dd12ddc6d25431 Mon Sep 17 00:00:00 2001 From: Jakub Majocha <1760221+majocha@users.noreply.github.com> Date: Mon, 28 Oct 2024 12:02:56 +0100 Subject: [PATCH] try fix --- .../FSharp.Core/Microsoft.FSharp.Control/AsyncModule.fs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/tests/FSharp.Core.UnitTests/FSharp.Core/Microsoft.FSharp.Control/AsyncModule.fs b/tests/FSharp.Core.UnitTests/FSharp.Core/Microsoft.FSharp.Control/AsyncModule.fs index fce1b0fd710..e9bfc59e0c9 100644 --- a/tests/FSharp.Core.UnitTests/FSharp.Core/Microsoft.FSharp.Control/AsyncModule.fs +++ b/tests/FSharp.Core.UnitTests/FSharp.Core/Microsoft.FSharp.Control/AsyncModule.fs @@ -473,8 +473,9 @@ type AsyncModule() = let mutable running = new CountdownEvent(1) let job i = async { - running.AddCount 1 - use! holder = Async.OnCancel (running.Signal >> ignore) + use! holder = + running.AddCount 1 + Async.OnCancel (running.Signal >> ignore) do! failOnlyOne |> Async.AwaitWaitHandle |> Async.Ignore running.Signal() |> ignore failwith "boom"