jbezak

// using Result from F# 4.1
module AsyncResult =

    let inline bind f x = async {
        let! x' = x
        match x' with
        | Ok a -> return! f a
        | Error e -> return Error e
    }

jbezak

namespace FsharpService

open System.ComponentModel
open System.Configuration.Install
open System.Diagnostics

[<RunInstaller(true)>]
type public FSharpServiceInstaller() =
    inherit Installer()