From 21745e582e69cb19b63ba77b6f29713bb31c5cfe Mon Sep 17 00:00:00 2001
From: Henrik Kirk <henrik@ece.au.dk>
Date: Tue, 19 Nov 2024 19:23:56 +0100
Subject: [PATCH] Updated to Giraffe from latest version

---
 slides/09/giraffe.md | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

diff --git a/slides/09/giraffe.md b/slides/09/giraffe.md
index 6299877..ed36854 100644
--- a/slides/09/giraffe.md
+++ b/slides/09/giraffe.md
@@ -64,15 +64,13 @@ type HttpHandler = HttpFunc -> HttpContext -> HttpFuncResult
 ```fsharp [7-8]
 [<EntryPoint>]
 let main _ =
-    Host.CreateDefaultBuilder()
-        .ConfigureWebHostDefaults(
-            fun webHostBuilder ->
-                webHostBuilder
-                    .Configure(configureApp)
-                    .ConfigureServices(configureServices)
-                    |> ignore)
-        .Build()
-        .Run()
+    let builder = WebApplication.CreateBuilder(args)
+    configureServices builder.Services
+
+    let app = builder.Build()
+
+    configureApp app
+    app.Run()
     0
 ```
 
@@ -83,13 +81,16 @@ let main _ =
 ```fsharp
 let webApp = ...
 
-let configureApp (app : IApplicationBuilder) =
+let configureServices (services: IServiceCollection) =
     // Add Giraffe to the ASP.NET Core pipeline
-    app.UseGiraffe webApp
+    services.AddGiraffe() |> ignore
+    
+let notFoundHandler = "Not Found" |> text |> RequestErrors.notFound
 
-let configureServices (services : IServiceCollection) =
+let configureApp (appBuilder: IApplicationBuilder) =
+    appBuilder
     // Add Giraffe dependencies
-    services.AddGiraffe() |> ignore
+    .UseGiraffe(notFoundHandler)
 ```
 
 ---