WIP on module/member conversion

2023-12-14 23:49:38 -05:00
parent ec2d43acde
commit 7071d606f1
19 changed files with 250 additions and 255 deletions
--- a/src/MyWebLog.Data/Postgres/PostgresPostData.fs
+++ b/src/MyWebLog.Data/Postgres/PostgresPostData.fs
@@ -106,7 +106,7 @@ type PostgresPostData (log : ILogger) =
    /// Get a page of categorized posts for the given web log (excludes revisions)
    let findPageOfCategorizedPosts webLogId categoryIds pageNbr postsPerPage =
        log.LogTrace "Post.findPageOfCategorizedPosts"
-        let catSql, catParam = arrayContains (nameof Post.empty.CategoryIds) CategoryId.toString categoryIds
+        let catSql, catParam = arrayContains (nameof Post.empty.CategoryIds) (_.Value) categoryIds
        Custom.list
            $"{selectWithCriteria Table.Post}
                 AND {catSql}