bit-badger/myWebLog
1
0
Fork 0
Code Issues 5 Pull Requests Packages Projects Releases 11 Activity

More WIP to get htmx served; still no luck (#59)

Browse Source
This commit is contained in:
Daniel J. Summers
2026-07-03 16:59:41 -04:00
parent 38a06b53f4
commit 0de1bff190
1 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/MyWebLog/Program.fs
+12 -8
View File
@@ -145,9 +145,14 @@ open RethinkDB.DistributedCache
[<EntryPoint>] [<EntryPoint>]
let main args = let main args =
let builder = WebApplication.CreateBuilder args let builder = WebApplication.CreateBuilder(
let _ = builder.Services.Configure<ForwardedHeadersOptions>(fun (opts : ForwardedHeadersOptions) -> WebApplicationOptions(
opts.ForwardedHeaders <- ForwardedHeaders.XForwardedFor ||| ForwardedHeaders.XForwardedProto) ContentRootPath = Directory.GetCurrentDirectory(),
WebRootPath = Path.Combine(Directory.GetCurrentDirectory(), "wwwroot"),
Args = args))
let _ = builder.Services.Configure<ForwardedHeadersOptions>(
fun (opts: ForwardedHeadersOptions) ->
opts.ForwardedHeaders <- ForwardedHeaders.XForwardedFor ||| ForwardedHeaders.XForwardedProto)
let _ = let _ =
builder.Services builder.Services
.AddAuthentication(CookieAuthenticationDefaults.AuthenticationScheme) .AddAuthentication(CookieAuthenticationDefaults.AuthenticationScheme)
@@ -202,8 +207,8 @@ let main args =
opts.IdleTimeout <- TimeSpan.FromMinutes 60. opts.IdleTimeout <- TimeSpan.FromMinutes 60.
opts.Cookie.HttpOnly <- true opts.Cookie.HttpOnly <- true
opts.Cookie.IsEssential <- true) opts.Cookie.IsEssential <- true)
let _ = builder.WebHost.UseStaticWebAssets()
let _ = builder.Services.AddGiraffe() let _ = builder.Services.AddGiraffe()
let _ = builder.WebHost.UseStaticWebAssets()
// Set up DotLiquid // Set up DotLiquid
DotLiquidBespoke.register () DotLiquidBespoke.register ()
@@ -238,17 +243,16 @@ let main args =
|> isNotNull |> isNotNull
|> function true -> app.UseCanonicalDomains() |> ignore | false -> () |> function true -> app.UseCanonicalDomains() |> ignore | false -> ()
let _ = app.UseCookiePolicy(CookiePolicyOptions (MinimumSameSitePolicy = SameSiteMode.Strict)) let _ = app.UseCookiePolicy(CookiePolicyOptions(MinimumSameSitePolicy = SameSiteMode.Strict))
let _ = app.UseMiddleware<WebLogMiddleware>() let _ = app.UseMiddleware<WebLogMiddleware>()
let _ = app.UseMiddleware<RedirectRuleMiddleware>() let _ = app.UseMiddleware<RedirectRuleMiddleware>()
let _ = app.UseAuthentication() let _ = app.UseAuthentication()
let _ = app.UseRouting() let _ = app.UseRouting()
let _ = app.UseStaticFiles()
//let _ = app.MapStaticAssets()
let _ = app.UseSession() let _ = app.UseSession()
let _ = app.UseGiraffe Handlers.Routes.endpoints let _ = app.UseGiraffe Handlers.Routes.endpoints
let _ = app.UseStaticFiles()
app.Run() do! app.RunAsync()
} }
|> Async.AwaitTask |> Async.RunSynchronously |> Async.AwaitTask |> Async.RunSynchronously