First cut of SQLite doc library

This commit is contained in:
2023-12-19 21:24:13 -05:00
parent bb4252f3c1
commit f461b10ebc
10 changed files with 221 additions and 455 deletions

View File

@@ -100,7 +100,7 @@ type SQLiteCategoryData(conn: SqliteConnection, ser: JsonSerializer, log: ILogge
for postId, cats in posts do
do! Update.partialById
Table.Post postId {| CategoryIds = cats |> List.filter (fun it -> it <> string catId) |} conn
do! Document.delete conn Table.Category catId
do! Delete.byId Table.Category catId conn
return if children = 0L then CategoryDeleted else ReassignedChildCategories
| None -> return CategoryNotFound
}