landy

let exampleTask = Task.FromResult("I'm great developer.");

let getStringWithAsyncCore () = task {
    return! exampleTask
}

[<Benchmark>]
let getStringWithAsync () = task {
    return! getStringWithAsyncCore()
}

landy

[<RequireQualifiedAccess>]
module Household.Libraries.Jwt

open System
open System.IdentityModel.Tokens.Jwt
open System.Security.Cryptography
open Microsoft.IdentityModel.Tokens


[<Literal>]

landy

module Household.Libraries.Password

//https://github.com/dotnet/AspNetCore/blob/master/src/Identity/Extensions.Core/src/PasswordHasher.cs

//#load "/Users/landsman/projects/private/cookbook/.paket/load/main.group.fsx"

open System
open System.Runtime.CompilerServices
open System.Security.Cryptography
open Microsoft.AspNetCore.Cryptography.KeyDerivation

landy

//add this as pre-request script on postman collection
const moment = require("moment")
const {
    apiRoot,
    authPath,
    username,
    password,
    bearerTokenValidUntil
} = pm.variables.toObject();

landy

module App

open Elmish

type State = 
    { CurrentUser: string option }

type Msg = 
    | SignIn of string
    | SignOut