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

src/MyWebLog.Data/Postgres/PostgresPersonData.fs

@@ -22,7 +22,7 @@ type PostgresPersonData(log: ILogger) =
         Find.byFieldsOrdered<Person>
             Table.Person
             All
-            [ Field.In (nameof Person.Empty.Id) (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 for the given web log
@@ -46,7 +46,7 @@ type PostgresPersonData(log: ILogger) =
     /// Find all persons for the given web log
     let findByWebLog webLogId =
         log.LogTrace "Person.findByWebLog"
-        Find.byContainsOrdered<Person> Table.Person (webLogContains webLogId) [ Field.Named (nameof Person.Empty.Name) ]
+        Find.byContainsOrdered<Person> Table.Person (webLogDoc webLogId) [ Field.Named (nameof Person.Empty.Name) ]
    
     
     /// Restore persons from a backup