WIP on endpoint routing conversion (#59)

src/MyWebLog/Handlers/Post.fs

@@ -96,22 +96,25 @@ let preparePostList webLog posts listType (url: string) pageNbr perPage (data: I
 
 open Giraffe
 
-// GET /page/{pageNbr}
+// GET /page/{pageNbr}[/]
 let pageOfPosts pageNbr : HttpHandler = fun next ctx -> task {
-    let  count   = ctx.WebLog.PostsPerPage
-    let  data    = ctx.Data
-    let! posts   = data.Post.FindPageOfPublishedPosts ctx.WebLog.Id pageNbr count
-    let! viewCtx = preparePostList ctx.WebLog posts PostList "" pageNbr count data
-    let  title   =
-        match pageNbr, ctx.WebLog.DefaultPage with
-        | 1, "posts" -> None
-        | _, "posts" -> Some $"Page {pageNbr}"
-        | _,  _      -> Some $"Page {pageNbr} « Posts"
-    return!
-        { viewCtx with
-            PageTitle = defaultArg title viewCtx.PageTitle
-            IsHome    = pageNbr = 1 && ctx.WebLog.DefaultPage = "posts" }
-        |> themedView "index" next ctx
+    if ctx.Request.Path.Value.EndsWith "/" then
+        return! redirectTo true (ctx.WebLog.RelativeUrl(Permalink $"page/{pageNbr}")) next ctx
+    else
+        let  count   = ctx.WebLog.PostsPerPage
+        let  data    = ctx.Data
+        let! posts   = data.Post.FindPageOfPublishedPosts ctx.WebLog.Id pageNbr count
+        let! viewCtx = preparePostList ctx.WebLog posts PostList "" pageNbr count data
+        let  title   =
+            match pageNbr, ctx.WebLog.DefaultPage with
+            | 1, "posts" -> None
+            | _, "posts" -> Some $"Page {pageNbr}"
+            | _,  _      -> Some $"Page {pageNbr} « Posts"
+        return!
+            { viewCtx with
+                PageTitle = defaultArg title viewCtx.PageTitle
+                IsHome    = pageNbr = 1 && ctx.WebLog.DefaultPage = "posts" }
+            |> themedView "index" next ctx
 }
 
 // GET /page/{pageNbr}/