Hot / Cold asynchrony

Program.fs

open System.Threading.Tasks
open FSharp.Control.Tasks.V2.ContextInsensitive


let aTask = task {
    do! Task.Delay(1000)
    printfn "I'm in aTask"
}

let anAsync = async {
    do! Task.Delay(1000) |> Async.AwaitTask
    printfn "I'm in anAsync"
}

let runTaskSync t =
    t |> Async.AwaitTask |> Async.RunSynchronously

let runAsyncSync a =
    a |> Async.RunSynchronously

[<EntryPoint>]
let main _ =
    runTaskSync aTask
    runTaskSync aTask
    runAsyncSync anAsync
    runAsyncSync anAsync
    0