aaronmu

namespace Fsion

open System.Threading

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

module internal Cancel =

aaronmu

namespace Utils

module Async =

    let retn x =
        async { return x }

    let lift f =
        f >> retn

aaronmu

#
# Run this from the Live USB.
#

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

sudo mount ${root_partition} /mnt

aaronmu

Deploying an F# ASP.NET Core app to Azure

Last week I spent a lot of time trying to deploy an F# ASP.NET Core app (a Giraffe app, specifically) to Azure because the information to complete all the steps was scattered in several places. So I'm writing this hopefully it will save the pain to others :)

Preparation

The following steps are mostly taken from this guide and it's only necessary to do them once:

1. Create an account in Azure (or use an existing one)
2. Create a resource group (or use an existing one)

aaronmu

public class Basket : EventSource
{
    private int Id;

    private List<Item> Items = new List<Item>();

    public Basket()
    {
        On<ItemAddedToBasket>(e => {
            var item = new Item(@event =>