Update for v4-rc5 of doc library

2024-09-18 19:54:45 -04:00
parent 0032d15c0a
commit 870f87cb17
11 changed files with 15 additions and 22 deletions
@@ -55,7 +55,7 @@ type PostgresWebLogUserData(log: ILogger) =
    /// Find the names of users by their IDs for the given web log
    let findNames webLogId (userIds: WebLogUserId list) = backgroundTask {
        log.LogTrace "WebLogUser.findNames"
-        let idField = Field.In (nameof WebLogUser.Empty.Id) (List.map (string >> box) userIds)
+        let idField = Field.In (nameof WebLogUser.Empty.Id) (List.map string userIds)
        let! users =
            Custom.list
                $"{selectWithCriteria Table.WebLogUser} AND {Query.whereByFields All [ idField ]}"