akhansari

(*
| Method |    Mean |   Error |  StdDev | Allocated |
|------- |--------:|--------:|--------:|----------:|
|   Task | 15.99 s | 0.107 s | 0.095 s |    314 KB |
|  Async | 16.02 s | 0.089 s | 0.079 s |    990 KB |
*)

open System.Threading.Tasks
open BenchmarkDotNet.Attributes
open BenchmarkDotNet.Running

akhansari

Scoop

• firacode
• windows-terminal
• starship
• gopass
• pass-winmenu-nogpg
• micro
• nodejs
• jq

akhansari

[<AutoOpen>]
module Helpers =
    let rec (|NestedHttpRequestException|_|) (e: exn) =
        match e with
        | null -> None
        | :? Net.Http.HttpRequestException as e -> Some e
        | e -> (|NestedHttpRequestException|_|) e.InnerException

[<RequireQualifiedAccess>]
module ConsulKv =

akhansari

[<RequireQualifiedAccess>]
module Notify

open System
open Elmish
open Bolero
open Bolero.Html

type State = Opened | Closed

akhansari

#r "nuget: Flurl.Http"

module HttpApi =
    open System
    open System.Net
    open System.Text.Json
    open Flurl.Http

    type Serializer (opt) =
        interface Configuration.ISerializer with

akhansari

// 1. pure, don't think about IO at all
module Domain =
    let add x y = x + y

// 2. think about IO but not its implementation
module App =
    let add (getX: unit -> Async<int32>) y =
        async {
            let! x = getX ()
            return Domain.add x y

akhansari

open System
open Microsoft.AspNetCore.Builder
open Microsoft.AspNetCore.Http
open Microsoft.AspNetCore.Routing

type Item = { Id: int32; Name: string; Price: decimal }
let rnd = Random()

let getProducts () =
    [ for _ in 1..3 do { Id = rnd.Next 100; Name = "Blueberry"; Price = 10m } ]

akhansari

// ========= Event Sourcing in a nutshell

(*
    FriendlyName: string
        Aggregate friendly name.

    Initial: 'State
        Initial (empty) state we will start with.

    Decide: 'Command -> 'State -> 'Event list

akhansari

Architecture

• Use Onion architecture

  • Dependencies go inwards. That is, the Core domain doesn't know about outside layers

• Use pipeline model to implement workflows/use-cases/stories

  • Business logic makes decisions
  • IO does storage with minimal logic
  • Keep Business logic and IO separate

• Keep IO at edges

akhansari

{
	"version": "2.0.0",
	"tasks": [
		{
			"label": "Hugo",
			"type": "shell",
			"command": "hugo serve",
			"group": "build",
			"isBackground": true,
			"problemMatcher": {