-
Notifications
You must be signed in to change notification settings - Fork 0
/
Startup.fs
36 lines (29 loc) · 1 KB
/
Startup.fs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
open System
open Microsoft.AspNetCore.Builder
open Microsoft.Extensions.Hosting
open Microsoft.AspNetCore.Http
open Microsoft.Extensions.DependencyInjection
open WebSharper.AspNetCore
open MyFullStack01
[<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()
.UseAuthentication()
.UseStaticFiles()
.UseWebSharper(fun ws -> ws.Sitelet(Site.Main) |> ignore)
|> ignore
app.Run()
0 // Exit code