Add person data access, integ tests, backup/restore (#17)

2026-08-02 22:09:03 -04:00
parent d9e7c771ba
commit 5c7d34ffc7
16 changed files with 345 additions and 22 deletions
@@ -20,7 +20,7 @@ type SQLitePersonData(conn: SqliteConnection, log: ILogger) =
        log.LogTrace "Person.findByAssignment"
        conn.findByFieldsOrdered<Person>
            Table.Person All
-            [ Field.In "PersonId" (assignments |> List.map _.PersonId) ]
+            [ Field.In (nameof Person.Empty.Id) (assignments |> List.map (fun it -> string it.PersonId)) ]
            [ Field.Named (nameof Person.Empty.Name) ]
    
    /// Find a person by their ID