This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// <PropertyGroup> | |
// <OutputType>Exe</OutputType> | |
// <TargetFramework>netcoreapp3.0</TargetFramework> | |
// </PropertyGroup> | |
type ApplicationUser(name, email) = | |
inherit MongoIdentityUser<Guid>(name, email) | |
new(name) = ApplicationUser(name,name) | |
new() = ApplicationUser() |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// Learn more about F# at http://fsharp.org | |
open Thoth.Json.Net | |
open TypeShape.Core.Core | |
open FSharp.Reflection | |
open Groot.Contracts.SportRadar.Types.Soccer | |
open System | |
let apply (d1:Decoder<'C -> 'B>) (d2:Decoder<'C>) : Decoder<'B> = |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
type Test = | |
{ EntityId: string } | |
type Test2 = | |
{ EntityId: string | |
Name: string | |
Length: int } | |
let inline (|HasEntityId|) x = |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/// 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 | |