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

src/MyWebLog/Program.fs

@@ -145,8 +145,13 @@ open RethinkDB.DistributedCache
 [<EntryPoint>]
 let main args =
 
-    let builder = WebApplication.CreateBuilder args
-    let _ = builder.Services.Configure<ForwardedHeadersOptions>(fun (opts : ForwardedHeadersOptions) ->
+    let builder = WebApplication.CreateBuilder(
+        WebApplicationOptions(
+            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 _ =
         builder.Services
@@ -202,8 +207,8 @@ let main args =
         opts.IdleTimeout        <- TimeSpan.FromMinutes 60.
         opts.Cookie.HttpOnly    <- true
         opts.Cookie.IsEssential <- true)
-    let _ = builder.WebHost.UseStaticWebAssets()
     let _ = builder.Services.AddGiraffe()
+    let _ = builder.WebHost.UseStaticWebAssets()
 
     // Set up DotLiquid
     DotLiquidBespoke.register ()
@@ -243,12 +248,11 @@ let main args =
         let _ = app.UseMiddleware<RedirectRuleMiddleware>()
         let _ = app.UseAuthentication()
         let _ = app.UseRouting()
-        let _ = app.UseStaticFiles()
-        //let _ = app.MapStaticAssets()
         let _ = app.UseSession()
         let _ = app.UseGiraffe Handlers.Routes.endpoints
+        let _ = app.UseStaticFiles()
 
-        app.Run()
+        do! app.RunAsync()
     }
     |> Async.AwaitTask |> Async.RunSynchronously