Permalink
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
20 lines (14 sloc) 612 Bytes
namespace DurableFsharp
open Microsoft.Azure.WebJobs
open FSharp.Control.Tasks
module HelloSequence =
[<FunctionName("E1_HelloSequence")>]
let Run([<OrchestrationTrigger>] context: DurableOrchestrationContext) = task {
let! hello1 = context.CallActivityAsync<string>("E1_SayHello", "Tokyo")
let! hello2 = context.CallActivityAsync<string>("E1_SayHello", "Seattle")
let! hello3 = context.CallActivityAsync<string>("E1_SayHello", "London")
return [hello1; hello2; hello3]
}
[<FunctionName("E1_SayHello")>]
let SayHello([<ActivityTrigger>] name) =
sprintf "Hello %s!" name