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

[<RequireQualifiedAccess>]
module Notify

open System
open Elmish
open Bolero
open Bolero.Html

type State = Opened | Closed

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

Scoop

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

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

module AsyncSeq =
    open System.Collections.Generic
    open System.Threading.Tasks
    
    let cancelled (cancellationToken: CancellationToken) =
        Task.FromCanceled<bool> cancellationToken
        |> ValueTask<bool>

    let ofSeq (sq: Task<'T> seq) = {
        new IAsyncEnumerable<'T> with

akhansari

[core]
  excludesFile = ~/.gitignore
[user]
  name = My Name

[includeIf "gitdir:~/git/"]
  path = ~/.gitconfig-work
[includeIf "gitdir:~/github/"]
  path = ~/.gitconfig-home

akhansari

type Pins = int
let [<Literal>] MaxPins : Pins = 10

type Frame =
    | Strike of Pins
    | Spare of Pins * Pins
    | Open of Pins * Pins
    | Pending of Pins
    | Final of Pins * Pins option * Pins option

akhansari

namespace EsBankAccount.Account;

using Events = IReadOnlyCollection<IEvent>;

public record Transaction(decimal Amount, DateTime Date);

// events
public interface IEvent { } // used to mimic a discriminated union
public record Deposited(Transaction Transaction) : IEvent;
public record Withdrawn(Transaction Transaction) : IEvent;

akhansari

# open PowerShell legacy
# install https://scoop.sh
irm get.scoop.sh | iex

# add extras bucket
scoop bucket add extras

# install the new PowerShell
scoop install pwsh