Async start of Suave w/ Logary and Hopac

Start.fs

let startPublicWebApi s (logary : LogManager) esConn : Job<IAsyncDisposable> =
  let webApi = createPublicWebApi s esConn
  let cts = new CancellationTokenSource()

  let webConfig =
    { defaultConfig with
        cancellationToken = cts.Token
        bindings = [ HttpBinding.createSimple HTTP "0.0.0.0" s.listenPort ]
    }
  LogaryFacadeAdapter.initialise<Suave.Logging.Logger> logary

  let started, instance = startWebServerAsync webConfig webApi
  let closed = IVar ()
  let runtime = Job.fromAsync instance >>= IVar.fill closed

  Job.start runtime >>=. Job.fromAsync started >>-.
    { new IAsyncDisposable with
        member x.DisposeAsync () =
          Job.delay <| fun _ ->
          cts.Cancel()
          closed :> Job<_> }