From 2a796042ac68f9c27dbc791121de73dd74588714 Mon Sep 17 00:00:00 2001
From: "Daniel J. Summers" <daniel@bitbadger.solutions>
Date: Wed, 1 Jun 2022 07:50:46 -0400
Subject: [PATCH] Fix trailing-slash-agnostic redirect

---
 src/MyWebLog/Handlers/Routes.fs | 3 ++-
 src/MyWebLog/appsettings.json   | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/MyWebLog/Handlers/Routes.fs b/src/MyWebLog/Handlers/Routes.fs
index 653b1e4..98e6725 100644
--- a/src/MyWebLog/Handlers/Routes.fs
+++ b/src/MyWebLog/Handlers/Routes.fs
@@ -54,7 +54,8 @@ module CatchAll =
                 yield Feed.generate feedType postCount 
             | None -> ()
             // Post differing only by trailing slash
-            let altLink = Permalink (if textLink.EndsWith "/" then textLink[..textLink.Length - 2] else $"{textLink}/")
+            let altLink =
+                Permalink (if textLink.EndsWith "/" then textLink[1..textLink.Length - 2] else $"{textLink[1..]}/")
             match Data.Post.findByPermalink altLink webLog.id conn |> await with
             | Some post ->
                 debug (fun () -> $"Found post by trailing-slash-agnostic permalink")
diff --git a/src/MyWebLog/appsettings.json b/src/MyWebLog/appsettings.json
index 70d56c7..9129ee1 100644
--- a/src/MyWebLog/appsettings.json
+++ b/src/MyWebLog/appsettings.json
@@ -3,7 +3,7 @@
     "hostname": "data02.bitbadger.solutions",
     "database": "myWebLog_dev"
   },
-  "Generator": "myWebLog 2.0-alpha24",
+  "Generator": "myWebLog 2.0-alpha25",
   "Logging": {
     "LogLevel": {
       "MyWebLog.Handlers": "Debug"