namespace Infrastructure.Web.Api.Mvc

module ExceptionFilters =
    open Microsoft.AspNetCore.Mvc.Filters
    open Microsoft.Extensions.Logging
    open Infrastructure.Web.Api.Localization
    open System
    open Microsoft.AspNetCore.Mvc

    type OperationCanceledExceptionFilter =
        inherit ExceptionFilterAttribute
        val private internalLogger : ILogger<OperationCanceledExceptionFilter>
        new (logger : ILogger<OperationCanceledExceptionFilter>) =
            {
                internalLogger = logger
            }

        override __.OnException (context : ExceptionContext) =
            match context.Exception with
            | :? OperationCanceledException ->
                internalLogger.LogInformation(Resources.RequestWasCancelled)
                context.ExceptionHandled <- true
                context.Result <- StatusCodeResult(499)
                ()
            | _ -> ()
            ()