ninjarobot

let sleepOnError fn =
    async {
        let! (res:Result<_,_>) = fn
        return!
            match res with
            | Ok o -> async.Return (Ok o)
            | Error e ->
                async {
                    do! Async.Sleep 750
                    return Error e

ninjarobot

#r "nuget: Microsoft.Extensions.DependencyInjection"
#r "nuget: Microsoft.Extensions.Hosting"

open Microsoft.Extensions.DependencyInjection
open Microsoft.Extensions.Hosting

type Foo = { Foo : string }
type Bar = { Bar : int }
type FooBar = Foo -> Bar

ninjarobot

Tracing with Application Insights

Application logging is ubiquitous and invaluable for troubleshooting. Structured logging enables you to log formatted messages and the data fields separately so that you can see the messages but also filter on the data fields. Tracing takes this a step further, where you can correlate many log entries together as you follow a trace of execution through an application. Traces also include additional information about the execution process, such as the sequence of calls to dependencies and how long any given call may take.

Application Insights lets you see all of this data correlated together in an application. You can search for an error log and then see in the execution flow that the log entry was added right after a failed call to another service. Or you can see that a certain web request is slower than others because it spends a lot of time on many redundant data access calls.

What about OpenTelemetry?

ninjarobot

# default target so running 'make' by itself wll download and build nginx
build: nginx
	cd nginx && ./configure --with-pcre=../pcre2 && make

nginx: pcre2
	curl -O https://nginx.org/download/nginx-1.21.6.tar.gz
	tar -xzvf nginx-*.tar.gz
	mv nginx-*/ nginx
	rm nginx-*.tar.gz

ninjarobot

type Step =
    | Action of string
    | Branch of Step list list

type Plan =
    {
        Name : string
        Steps : Step list
    }

ninjarobot

#r "../../src/Farmer/bin/Debug/net5.0/Farmer.dll"
#r "nuget: FSharp.Text.Docker"

open System
open Farmer
open Farmer.ContainerApp
open Farmer.Builders
open FSharp.Text.Docker.Builders

// Create Container Registry

ninjarobot

set -eux
python3 -m venv $HOME/venvs/azure-cli
source venvs/azure-cli/bin/activate
pip install --upgrade pip
pip install azure-cli
deactivate

ninjarobot

#r "nuget:Farmer"

open Farmer
open Farmer.Builders

// Sometimes resources aren't available in certain regions and another location needs to be chosen.
// The best way to do this is to create a nested resource group deployment to the _same_ resource
// group, and choose a different location for that nested deployment

arm {

ninjarobot

#r "nuget: FsCloudInit"
#r "nuget: DiscUtils.Containers"

open System
open System.IO
open FsCloudInit
open FsCloudInit.Builders
open DiscUtils
open YamlDotNet.Serialization

ninjarobot

#r "nuget: Farmer"
#r "nuget: FSharp.Text.Docker"

open System
open Farmer
open Farmer.Builders
open FSharp.Text.Docker.Dockerfile

// Create Container Registry
let myAcr =