46 lines
1.5 KiB
Forth
46 lines
1.5 KiB
Forth
namespace Company.WebApplication1
|
|
|
|
open System
|
|
open System.Collections.Generic
|
|
open System.Linq
|
|
open System.Threading.Tasks
|
|
open Microsoft.AspNetCore.Builder
|
|
open Microsoft.AspNetCore.Hosting
|
|
#if (!NoHttps)
|
|
open Microsoft.AspNetCore.HttpsPolicy;
|
|
#endif
|
|
open Microsoft.AspNetCore.Mvc
|
|
open Microsoft.Extensions.Configuration
|
|
open Microsoft.Extensions.DependencyInjection
|
|
|
|
type Startup private () =
|
|
new (configuration: IConfiguration) as this =
|
|
Startup() then
|
|
this.Configuration <- configuration
|
|
|
|
// This method gets called by the runtime. Use this method to add services to the container.
|
|
member this.ConfigureServices(services: IServiceCollection) =
|
|
// Add framework services.
|
|
services.AddMvc().AddNewtonsoftJson() |> ignore
|
|
|
|
// This method gets called by the runtime. Use this method to configure the HTTP request pipeline.
|
|
member this.Configure(app: IApplicationBuilder, env: IHostingEnvironment) =
|
|
if (env.IsDevelopment()) then
|
|
app.UseDeveloperExceptionPage() |> ignore
|
|
#if (!NoHttps)
|
|
else
|
|
// The default HSTS value is 30 days. You may want to change this for production scenarios, see https://aka.ms/aspnetcore-hsts.
|
|
app.UseHsts() |> ignore
|
|
|
|
app.UseHttpsRedirection() |> ignore
|
|
#else
|
|
|
|
#endif
|
|
app.UseRouting(fun routes ->
|
|
routes.MapControllers() |> ignore
|
|
) |> ignore
|
|
|
|
app.UseAuthorization() |> ignore
|
|
|
|
member val Configuration : IConfiguration = null with get, set
|