Любая идея, почему этот вызов расширения C# пропускается в F#?

Question

По некоторым причинам линияservices.AddSingleton<IHostedService, CommandConsumer> |> ignore в let configureServices (services : IServiceCollection) пропускается во время отладки приложения F# Giraffe.

Что немного расстраивает, так это то, что программа компилируется, поэтому я ожидаю, что она сможет остановиться в точке останова на этой строке, однако это не так.

Странно то, что если я использую полное пространство имен метода расширения, то точка останова работает...Microsoft.Extensions.DependencyInjection.ServiceCollectionServiceExtensions.AddSingleton<IHostedService, CommandConsumer>(services) |> ignore

Исходный код в Program.fs:

module Rm.Accounting.Workflows.Api.App

open System
open System.Threading
open System.Threading.Tasks
open System.IO
open Microsoft.AspNetCore.Builder
open Microsoft.AspNetCore.Hosting
open Microsoft.Extensions.Logging
open Microsoft.Extensions.DependencyInjection
open Giraffe
open Microsoft.AspNetCore.Http
open Microsoft.Extensions.Hosting

type CommandConsumer()=
    inherit BackgroundService()

    override __.ExecuteAsync(cancellationToken : CancellationToken) =
        Task.CompletedTask


let webApp = choose [
                GET >=>
                    choose [
                        route "/" >=> redirectTo false "/health"
                    ]
                setStatusCode 404 >=> text "Not Found" ]

let errorHandler (ex : Exception) (logger : ILogger) =
    logger.LogError(ex, "An unhandled exception has occurred while executing the request.")
    clearResponse >=> setStatusCode 500 >=> text ex.Message

let configureApp (app : IApplicationBuilder) =
    app.UseHealthChecks(PathString("/health")) |> ignore
    let env = app.ApplicationServices.GetService<IHostingEnvironment>()
    (match env.IsDevelopment() with
    | true  -> app.UseDeveloperExceptionPage()
    | false -> app.UseGiraffeErrorHandler errorHandler)
        .UseHttpsRedirection()
        .UseStaticFiles()
        .UseGiraffe(webApp)

let configureServices (services : IServiceCollection) =
    // That line below stops the debugger if there a breakpoint.
    // Microsoft.Extensions.DependencyInjection.ServiceCollectionServiceExtensions.AddSingleton<IHostedService, CommandConsumer>(services)
    // |> ignore
    // The line does not stop the debugger with a breakpoint while the one above can, weird.
    services.AddSingleton<IHostedService, CommandConsumer> |> ignore
    services.AddHealthChecks() |> ignore
    services.AddGiraffe()      |> ignore


let configureLogging (builder : ILoggingBuilder) =
    builder.AddFilter(fun l -> l.Equals LogLevel.Error)
           .AddConsole()
           .AddDebug() |> ignore

[<EntryPoint>]
let main _ =
    let contentRoot = Directory.GetCurrentDirectory()
    let webRoot     = Path.Combine(contentRoot, "WebRoot")
    WebHostBuilder()
        .UseKestrel()
        .UseContentRoot(contentRoot)
        .UseIISIntegration()
        .UseWebRoot(webRoot)
        .Configure(Action<IApplicationBuilder> configureApp)
        .ConfigureServices(configureServices)
        .ConfigureLogging(configureLogging)
        .Build()
        .Run()
    0

Answer 1

Линия services.AddSingleton<IHostedService, CommandConsumer> |> ignore неправильный синтаксис, который вы можете увидеть, если вы разбиваете типы.

services.AddSingleton<IHostedService, CommandConsumer> является Func<unit, IServiceCollection>Это означает, что это функция, которую еще не нужно вызывать.

ignore затем получает эту функцию и ничего не делает с ней.

Синтаксис, который вы на самом деле хотите, чтобы зарегистрировать синглтон в сервисах: services.AddSingleton<IHostedService, CommandConsumer>() |> invoke, что означает "выполнить вызов AddSingleton и игнорировать возвращаемое значение.

Answer 2

Ты можешь использовать services.AddHostedService(CommandConsumer) |> ignore вместо того services.AddSingleton<IHostedService, CommandConsumer>() |> ignore и CommandConsumerбудет жить внутри синглтона, на котором размещены ваши фоновые службы. См. Этот вопрос для обсуждения темы.