Changeset 9 in code for trunk/lib

Timestamp:

Jun 19, 2022, 9:01:11 PM (3 years ago)

Author:

fox

Message:

Txt read & optional path printing for txt list

File:

• trunk/lib/archive.ml (modified) (1 diff)

trunk/lib/archive.ml

@@ -4 +4 @@
   let q = Person.Set.of_query @@ String_set.query query_string in
   fun n -> Person.Set.predicate q n.Text.authors
+
+let ided query_string =
+        fun n -> n.Text.id = query_string
 
 let keyworded query_string =