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

(*
| 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

#r "nuget: Microsoft.Extensions.Http, 6.0.0"

let factory =
    ServiceCollection()
        .AddHttpClient("dummy")
            .ConfigureHttpClient(fun c ->
                printfn "dummy configured"
                c.BaseAddress <- Uri "https://dummyjson.com"
                c.Timeout <- TimeSpan.FromMinutes 2.)
            .Services

akhansari

The OAuth Bible

I tried to make this as understandable as possible for any party reading it which means that the wording, references, and terminology used may not reflect that of a technical paper or resource. Excuse me if you may for I wish all to understand this, and not just those with a degree in understanding legal or technical jargon.

Created with love by Nijikokun @ Mashape, the team behing the OSS API management layer Kong, and Mashape Analytics for visualizing and monitoring API traffic.

---

Hey! Interested in simplifying the process to consume OAuth services like twitter, facebook, github, and thousands more? Check out Guardian, it was built with simplicity, security, and ease of use in mind, allowing you to consume OAuth in a single request.