aaronmu

#
# Run this from the Live USB.
#

#############################
# EDIT YOUR PARTITIONS HERE #
#############################
root_partition=/dev/nvm0n1p2

sudo mount ${root_partition} /mnt

aaronmu

namespace Utils

module Async =

    let retn x =
        async { return x }

    let lift f =
        f >> retn

aaronmu

module WerknemerInRooster

module Types =
    open System
    open Common.Validation

    type Werknemer = {
        WerknemerId : string
        WerknemerInternalId : Guid
        RoosterId : Guid

aaronmu

type ChangesRequestSchemeBasedOnXForwardedProto(next : RequestDelegate) =
    member this.Invoke(context : HttpContext) =
        let xForwardedProto = context.Request.Headers.["X-Forwarded-Proto"]

        if xForwardedProto = (StringValues "https") then
            context.Request.Scheme <- "https"
        else
            ()

        next.Invoke(context)

aaronmu

namespace Fsion

open System.Threading

[<Struct;NoEquality;NoComparison>]
type Cancel =
    private
    | Cancel of bool ref * children: Cancel list ref

module internal Cancel =

aaronmu

type Timed<'T> =
    { Timestamp: DateTimeOffset
      Value: 'T }

type Clock = unit -> DateTimeOffset

let Timed (c: Clock) v =
    { Timestamp = c ()
      Value = v }