Hosting Suave in Azure Service Fabric

suave-on-service-fabric.fs

open Microsoft.ServiceFabric.Services
open Suave
open Suave.Http.Successful
open Suave.Web
open System.Fabric
open System.Threading
open System.Threading.Tasks

type SuaveService() =
    inherit StatelessService()
    override __.CreateCommunicationListener() =
        { new ICommunicationListener with
            member __.Abort() = ()
            member __.CloseAsync _ = Task.FromResult() :> Task // should close down gracefully
            member __.Initialize _ = () // any initialization goes here
            member __.OpenAsync cancellationToken =
                async {
                    let starting, server = startWebServerAsync defaultConfig (OK "Hello from Service Fabric!")
                    Async.Start(server, cancellationToken)
                    do! starting |> Async.Ignore
                    return (defaultConfig.bindings.Head.ToString())
                } |> Async.StartAsTask
        }