Update for v4-rc5 of doc library

src/MyWebLog.Data/SQLite/SQLiteCategoryData.fs

@@ -43,16 +43,14 @@ type SQLiteCategoryData(conn: SqliteConnection, ser: JsonSerializer, log: ILogge
             ordered
             |> Seq.map (fun it -> backgroundTask {
                 // Parent category post counts include posts in subcategories
-                let childCats =
+                let childField =
                     ordered
                     |> Seq.filter (fun cat -> cat.ParentNames |> Array.contains it.Name)
                     |> Seq.map _.Id
                     |> Seq.append (Seq.singleton it.Id)
-                    |> Seq.map box
+                    |> Field.InArray (nameof Post.Empty.CategoryIds) Table.Post
                 let fields =
-                    [ webLogField webLogId
-                      Field.Equal (nameof Post.Empty.Status) (string Published)
-                      Field.InArray (nameof Post.Empty.CategoryIds) Table.Post childCats ]
+                    [ webLogField webLogId; Field.Equal (nameof Post.Empty.Status) (string Published); childField ]
                 let query =
                     (Query.statementWhere (Query.count Table.Post) (Query.whereByFields All fields))
                         .Replace("(*)", $"(DISTINCT data->>'{nameof Post.Empty.Id}')")

src/MyWebLog.Data/SQLite/SQLitePageData.fs

@@ -116,7 +116,7 @@ type SQLitePageData(conn: SqliteConnection, log: ILogger) =
         log.LogTrace "Page.findCurrentPermalink"
         let fields =
             [ webLogField webLogId
-              Field.InArray (nameof Page.Empty.PriorPermalinks) Table.Page (List.map (string >> box) permalinks) ]
+              Field.InArray (nameof Page.Empty.PriorPermalinks) Table.Page (List.map string permalinks) ]
         let query =
             (Query.statementWhere (Query.find Table.Page) (Query.whereByFields All fields))
                 .Replace("SELECT data", $"SELECT data->>'{linkName}' AS permalink")

src/MyWebLog.Data/SQLite/SQLitePostData.fs

@@ -116,7 +116,7 @@ type SQLitePostData(conn: SqliteConnection, log: ILogger) =
         log.LogTrace "Post.findCurrentPermalink"
         let fields =
             [ webLogField webLogId
-              Field.InArray (nameof Post.Empty.PriorPermalinks) Table.Post (List.map (string >> box) permalinks) ]
+              Field.InArray (nameof Post.Empty.PriorPermalinks) Table.Post (List.map string permalinks) ]
         let query =
             (Query.statementWhere (Query.find Table.Post) (Query.whereByFields All fields))
                 .Replace("SELECT data", $"SELECT data->>'{linkName}' AS permalink")
@@ -133,7 +133,7 @@ type SQLitePostData(conn: SqliteConnection, log: ILogger) =
     /// Get a page of categorized posts for the given web log (excludes revisions)
     let findPageOfCategorizedPosts webLogId (categoryIds: CategoryId list) pageNbr postsPerPage =
         log.LogTrace "Post.findPageOfCategorizedPosts"
-        let catIdField = Field.InArray (nameof Post.Empty.CategoryIds) Table.Post (List.map (string >> box) categoryIds)
+        let catIdField = Field.InArray (nameof Post.Empty.CategoryIds) Table.Post (List.map string categoryIds)
         conn.customList
             $"""{publishedPostByWebLog} AND {Query.whereByFields Any [ catIdField ]}
                 {Query.orderBy [ Field.Named $"{publishName} DESC" ] SQLite}

src/MyWebLog.Data/SQLite/SQLiteTagMapData.fs

@@ -39,8 +39,7 @@ type SQLiteTagMapData(conn: SqliteConnection, log: ILogger) =
     /// Find any tag mappings in a list of tags for the given web log
     let findMappingForTags (tags: string list) webLogId =
         log.LogTrace "TagMap.findMappingForTags"
-        conn.findByFields<TagMap>
-            Table.TagMap All [ webLogField webLogId; Field.In (nameof TagMap.Empty.Tag) (List.map box tags) ]
+        conn.findByFields<TagMap> Table.TagMap All [ webLogField webLogId; Field.In (nameof TagMap.Empty.Tag) tags ]
     
     /// Save a tag mapping
     let save (tagMap: TagMap) =

src/MyWebLog.Data/SQLite/SQLiteWebLogUserData.fs

@@ -52,7 +52,7 @@ type SQLiteWebLogUserData(conn: SqliteConnection, log: ILogger) =
     /// Find the names of users by their IDs for the given web log
     let findNames webLogId (userIds: WebLogUserId list) =
         log.LogTrace "WebLogUser.findNames"
-        let fields = [ webLogField webLogId; Field.In (nameof WebLogUser.Empty.Id) (List.map (string >> box) userIds) ]
+        let fields = [ webLogField webLogId; Field.In (nameof WebLogUser.Empty.Id) (List.map string userIds) ]
         let query  = Query.statementWhere (Query.find Table.WebLogUser) (Query.whereByFields All fields)
         conn.customList
             query