From 5525e53da14453f30bc769316f56031398d21210 Mon Sep 17 00:00:00 2001
From: Oskar Gewalli <wallymathieu@users.noreply.github.com>
Date: Sun, 27 Aug 2023 18:02:49 +0300
Subject: [PATCH 1/2] Minimal Giraffe App From
 https://github.com/giraffe-fsharp/Giraffe/issues/497\#issuecomment-968400589

---
 demo-apps/MinimalApp/MinimalApp.fsproj | 16 ++++++++++++++++
 demo-apps/MinimalApp/Program.fs        | 10 ++++++++++
 2 files changed, 26 insertions(+)
 create mode 100644 demo-apps/MinimalApp/MinimalApp.fsproj
 create mode 100644 demo-apps/MinimalApp/Program.fs

diff --git a/demo-apps/MinimalApp/MinimalApp.fsproj b/demo-apps/MinimalApp/MinimalApp.fsproj
new file mode 100644
index 0000000..0677f89
--- /dev/null
+++ b/demo-apps/MinimalApp/MinimalApp.fsproj
@@ -0,0 +1,16 @@
+<Project Sdk="Microsoft.NET.Sdk.Web">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net7.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Giraffe" Version="6.2.*" />
+  </ItemGroup>
+
+</Project>
diff --git a/demo-apps/MinimalApp/Program.fs b/demo-apps/MinimalApp/Program.fs
new file mode 100644
index 0000000..6c75915
--- /dev/null
+++ b/demo-apps/MinimalApp/Program.fs
@@ -0,0 +1,10 @@
+open Microsoft.AspNetCore.Builder
+open Microsoft.Extensions.Hosting
+open Giraffe
+
+let builder = WebApplication.CreateBuilder()
+builder.Services.AddGiraffe() |> ignore
+let app = builder.Build()
+
+app.UseGiraffe(text "Hello World!")
+app.Run()
\ No newline at end of file

From 1e5db2b6d460c3ba07421053fb3d3b0f7f55157a Mon Sep 17 00:00:00 2001
From: Oskar Gewalli <wallymathieu@users.noreply.github.com>
Date: Thu, 31 Aug 2023 17:00:04 +0300
Subject: [PATCH 2/2] Use routing

---
 demo-apps/MinimalApp/Program.fs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/demo-apps/MinimalApp/Program.fs b/demo-apps/MinimalApp/Program.fs
index 6c75915..2e9eaf0 100644
--- a/demo-apps/MinimalApp/Program.fs
+++ b/demo-apps/MinimalApp/Program.fs
@@ -5,6 +5,10 @@ open Giraffe
 let builder = WebApplication.CreateBuilder()
 builder.Services.AddGiraffe() |> ignore
 let app = builder.Build()
+let webApp =
+    choose [
+        route "/ping"   >=> text "pong"
+        route "/"       >=> text "Hello World" ]
 
-app.UseGiraffe(text "Hello World!")
+app.UseGiraffe(webApp)
 app.Run()
\ No newline at end of file