WIP on SQLite/JSON data

2023-12-13 15:43:35 -05:00
parent 715e545ed5
commit ec2d43acde
9 changed files with 819 additions and 852 deletions
--- a/src/MyWebLog/Handlers/Page.fs
+++ b/src/MyWebLog/Handlers/Page.fs
@@ -15,7 +15,7 @@ let all pageNbr : HttpHandler = requireAccess Author >=> fun next ctx -> task {
        |> addToHash "pages"     (pages
                                  |> Seq.ofList
                                  |> Seq.truncate 25
-                                  |> Seq.map (DisplayPage.fromPageMinimal ctx.WebLog)
+                                  |> Seq.map (DisplayPage.FromPageMinimal ctx.WebLog)
                                  |> List.ofSeq)
        |> addToHash "page_nbr"  pageNbr
        |> addToHash "prev_page" (if pageNbr = 2 then "" else $"/page/{pageNbr - 1}")