Ohlawdie ohlawdie

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:

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

	let memoize f =
	let cache = System.Collections.Generic.Dictionary<_,_>(HashIdentity.Structural)
	fun x ->
	let ok, res = cache.TryGetValue(x)
	if ok then res
	else let res = f x
	cache.[x] <- res
	res

	[<Struct>]
	type Foo =
	val mutable bar: string
	member self.ChangeBar bar = self.bar <- bar
	new (bar) = {bar = bar}

	let rangeCounter start stop =
	let mutable current = start
	fun () ->
	let this = current
	current <-
	if current = stop then
	start
	else
	current + 1
	this

	/// Structural inference for HTML tables
	module FSharp.Data.Runtime.HtmlInference

	open System
	open System.Globalization
	open FSharp.Data.Runtime
	open FSharp.Data.Runtime.StructuralInference
	open FSharp.Data.Runtime.StructuralTypes

	type Parameters = {

	dotnet new sln -o DotnetCoreProj
	cd DotnetCoreProj
	dotnet new classlib -lang 'F#' -o src/MyPSModule
	dotnet sln add src/MyPSModule/MyPSModule.fsproj
	cd src/MyPSModule
	dotnet add package PowerShellStandard.Library
	@'
	namespace MyPSModule

	open System.Management.Automation

	let inline (>>) f g x = g(f x)

	Which reads as: given two functions, f and g, and a value, x, compute the result of f of x and pass that result to g. The interesting thing here is that you can curry the (>>) function and only pass in parameters f and g, the result is a function which takes a single parameter and produces the result g ( f ( x ) ).

	type System.String with
	member this.StartsWithA = this.StartsWith "A"

	https://stackexchange.com/search?q
	https://www.youtube.com/results?search_query=%s
	https://github.com/search?q=%s