jhewlett

// Domain-specific module that uses the lower-level Elastic module

namespace RawElastic

open Thoth.Json.Net
open System.Net.Http
open System

module String =
    let split (sep : string) (target : string) =

jhewlett

import {
    TaggedTemplateLiteralInvocationType,
    QueryResultRowType,
    DatabasePoolType
} from 'slonik'
import * as t from 'io-ts'
import { Either } from 'fp-ts/Either'

const query = async <T>(
    sqlQuery: TaggedTemplateLiteralInvocationType<QueryResultRowType>,

jhewlett

namespace HttpClient.FSharp

open System
open System.Net.Http

type HttpMethod = 
| Post
| Put
| Delete
| Get

jhewlett

//db.fs -  helpers
module Db =
    open System.Data.SQLite
    open System.Data
    open Dapper

    let createConnectionFactory (connectionString : string) =
        let createConnection () =    
            new SQLiteConnection(connectionString) :> IDbConnection

jhewlett

namespace PureDI

open Microsoft.AspNetCore.Builder
open Microsoft.Extensions.Configuration
open Microsoft.Extensions.DependencyInjection
open Microsoft.AspNetCore.Mvc
open Microsoft.AspNetCore.Mvc.Controllers
open Microsoft.Extensions.Logging
open Microsoft.AspNetCore
open Microsoft.AspNetCore.Hosting

jhewlett

namespace PureDI

open Microsoft.AspNetCore.Builder
open Microsoft.Extensions.Configuration
open Microsoft.Extensions.DependencyInjection
open Microsoft.AspNetCore.Mvc
open Microsoft.AspNetCore.Mvc.Controllers
open Microsoft.AspNetCore.Hosting

type Person = {

jhewlett

mkdir Kata
cd Kata

dotnet new sln

mkdir App
cd App

dotnet new classlib -lang F#

jhewlett

let finalResult =
    seq {
        yield firstCheckResult ()
        yield secondCheckResult ()
        yield thirdCheckResult ()
    }
    |> combineResults

jhewlett

let combineResults (results : Result<unit, NotAuthorized> seq) : Result<unit, NotAuthorized> =
    results
    |> Seq.tryFind (fun r ->
        match r with
        | Ok () -> true
        | Error _ -> false)
    |> Option.defaultValue (Error NotAuthorized)

jhewlett

let allResults : Result<unit, NotAuthorized> seq =
    seq {
        yield firstCheckResult ()
        yield secondCheckResult ()
        yield thirdCheckResult ()
    }