45 lines
1.2 KiB
Forth
45 lines
1.2 KiB
Forth
open System
|
|
open Microsoft.AspNetCore.Builder
|
|
open Microsoft.Extensions.Hosting
|
|
open Microsoft.AspNetCore.Http
|
|
open Microsoft.Extensions.DependencyInjection
|
|
open WebSharper.AspNetCore
|
|
open web_api_cookbook
|
|
|
|
[<EntryPoint>]
|
|
let main args =
|
|
let builder = WebApplication.CreateBuilder args
|
|
|
|
// Add services to the container.
|
|
builder.Services
|
|
.AddWebSharper()
|
|
.AddAuthentication("WebSharper")
|
|
.AddCookie ("WebSharper", fun options -> ())
|
|
|> ignore
|
|
|
|
let app = builder.Build ()
|
|
|
|
// Configure the HTTP request pipeline.
|
|
if not (app.Environment.IsDevelopment ()) then
|
|
app
|
|
.UseExceptionHandler("/Error")
|
|
// The default HSTS value is 30 days. You may want to change this for production scenarios, see https://aka.ms/aspnetcore-hsts.
|
|
.UseHsts ()
|
|
|> ignore
|
|
|
|
app
|
|
.UseHttpsRedirection()
|
|
#if DEBUG
|
|
// .UseWebSharperScriptRedirect(startVite = true)
|
|
#endif
|
|
.UseDefaultFiles()
|
|
.UseStaticFiles()
|
|
.UseHttpsRedirection ()
|
|
//Enable if you want to make RPC calls to server
|
|
//.UseWebSharperRemoting()
|
|
|> ignore
|
|
|
|
app.Run ()
|
|
|
|
0 // Exit code
|