ianrussellsoftwarepark
ianrussellsoftwarepark
/ result-composition.fsx
Last active
March 7, 2024 10:46
Result composition from F# Essentials Lectures Session 5
This file contains 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 Customer = { | |
| Id : int | |
| IsVip : bool | |
| Credit : decimal | |
| } | |
| type GetPurchasesError = | |
| | HasOddId of int | |
| type IncreaseCreditIfVipError = |
ianrussellsoftwarepark
/ Program.fs
Created
March 12, 2021 14:52
Code for INTRODUCTION TO WEB PROGRAMMING IN F# WITH GIRAFFE - PART 3
This file contains 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
| open System | |
| open System.IO | |
| open Microsoft.AspNetCore.Builder | |
| open Microsoft.AspNetCore.Hosting | |
| open Microsoft.Extensions.Hosting | |
| open Microsoft.Extensions.DependencyInjection | |
| open Microsoft.AspNetCore.Http | |
| open Giraffe | |
| open Giraffe.ViewEngine | |
| open FSharp.Control.Tasks |
ianrussellsoftwarepark
/ Program.fs
Created
March 12, 2021 14:03
Code for INTRODUCTION TO WEB PROGRAMMING IN F# WITH GIRAFFE - PART 2
This file contains 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
| open System | |
| open System.IO | |
| open Microsoft.AspNetCore.Builder | |
| open Microsoft.AspNetCore.Hosting | |
| open Microsoft.Extensions.Hosting | |
| open Microsoft.Extensions.DependencyInjection | |
| open Microsoft.AspNetCore.Http | |
| open Giraffe | |
| open Giraffe.ViewEngine | |
| open FSharp.Control.Tasks |
ianrussellsoftwarepark
/ giraffe-5rc6.fs
Created
January 5, 2021 13:58
This file contains 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
| open Microsoft.AspNetCore.Builder | |
| open Microsoft.AspNetCore.Hosting | |
| open Microsoft.Extensions.Hosting | |
| open Microsoft.Extensions.DependencyInjection | |
| open Microsoft.AspNetCore.Http | |
| open Giraffe | |
| open Giraffe.iewEngine | |
| open FSharp.Control.Tasks | |
| type PingModel = { |
ianrussellsoftwarepark
/ ExampleUsage.fs
Last active
October 28, 2020 00:11
Functional wrapper for HttpClient
This file contains 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
| let getResponse body (cookie: string option) (client:HttpClient) = | |
| task { | |
| return! | |
| Http.createPostRequest Url | |
| |> withBody (RequestBody.Xml body) | |
| |> fun req -> | |
| match cookie with | |
| | Some c -> withCookie c req | |
| | _ -> req | |
| |> Http.execute client |
ianrussellsoftwarepark
/ ComputationExpressions.fs
Created
August 8, 2020 14:47
Code for post 12 of Intro to FP in F# series
This file contains 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
| namespace ComputationExpression | |
| module AsyncResultDemo = | |
| open System | |
| open FsToolkit.ErrorHandling | |
| type AuthError = | |
| | UserBannedOrSuspended |
This file contains 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
| open Microsoft.AspNetCore.Builder | |
| open Microsoft.AspNetCore.Hosting | |
| open Microsoft.Extensions.Hosting | |
| open Microsoft.Extensions.DependencyInjection | |
| open Microsoft.AspNetCore.Http | |
| open Giraffe | |
| open Giraffe.ViewEngine | |
| open FSharp.Control.Tasks | |
| type PingModel = { |
This file contains 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
| // Created in Linqpad | |
| void Main() | |
| { | |
| // 'baaaa' = -1 | |
| // 'dog' = 8 | |
| // 'aabab' = 3 -> 'aa' + 'ba' + 'b' | |
| // 'aabaa' = 0 -> 'aa' + 'baa' | |
| // 'adoag' = 6 -> 'a' + 'd' + 'oa' + 'g' | |
| calculate("baaaa").Dump(); | |
| calculate("dog").Dump(); |