Skip to content

Instantly share code, notes, and snippets.

whereing glasses

Roman Melnikov Neftedollar

View GitHub Profile
View seq.fs
/// Call all specified tasks sequentially one after the other and combine the results together.
let seq (tasks: OrchestratorBuilder.ContextTask<'a> list) =
let rec work acc (rem : OrchestratorBuilder.ContextTask<'a> list) =
match rem with
| [] -> fun _ -> Task.FromResult (acc |> List.rev)
| d :: rest -> orchestrator {
let! t = d
return! work (t::acc) rest
work [] tasks
View client_server_definition.fs
module Server =
open Shared
open Fable.Remoting.Client
/// A proxy you can use to talk to server directly
let api : ICounterProtocol =
Proxy.createWithBuilder<ICounterProtocol> Route.builder
You can’t perform that action at this time.