Fix prior permalink lookup (a8)

- Fix permalink edit links (a7)
2022-05-21 11:00:03 -04:00
parent 0a21240984
commit ac3a4fd3f4
5 changed files with 31 additions and 25 deletions
--- a/src/MyWebLog/Handlers/Post.fs
+++ b/src/MyWebLog/Handlers/Post.fs
@@ -302,7 +302,7 @@ let private deriveAction ctx : HttpHandler seq =
        match Data.Post.findCurrentPermalink [ permalink; altLink ] webLog.id conn |> await with
        | Some link -> yield redirectTo true $"/{Permalink.toString link}"
        | None -> ()
-        // Prior permalink
+        // Prior page
        match Data.Page.findCurrentPermalink [ permalink; altLink ] webLog.id conn |> await with
        | Some link -> yield redirectTo true $"/{Permalink.toString link}"
        | None -> ()