Fix /page/x/ URLs

- Make log on push URL to history
- Fix dashboard post links

src/MyWebLog/Handlers/Post.fs

@@ -111,6 +111,10 @@ let pageOfPosts pageNbr : HttpHandler = fun next ctx -> task {
     return! themedView "index" next ctx hash
 }
 
+// GET /page/{pageNbr}/
+let redirectToPageOfPosts (pageNbr : int) : HttpHandler = fun next ctx ->
+    redirectTo true (WebLog.relativeUrl ctx.WebLog (Permalink $"page/{pageNbr}")) next ctx
+
 // GET /category/{slug}/
 // GET /category/{slug}/page/{pageNbr}
 let pageOfCategorizedPosts slugAndPage : HttpHandler = fun next ctx -> task {

src/MyWebLog/Handlers/Routes.fs

@@ -160,6 +160,7 @@ let router : HttpHandler = choose [
     ])
     GET >=> routexp "/category/(.*)"  Post.pageOfCategorizedPosts
     GET >=> routef  "/page/%i"        Post.pageOfPosts
+    GET >=> routef  "/page/%i/"       Post.redirectToPageOfPosts       
     GET >=> routexp "/tag/(.*)"       Post.pageOfTaggedPosts
     subRoute "/user" (choose [
         GET >=> choose [