diff --git a/lib/archive.ml b/lib/archive.ml index 68343b3..a04d660 100644 --- a/lib/archive.ml +++ b/lib/archive.ml @@ -5,7 +5,10 @@ let authored query_string = fun n -> Person.Set.predicate q n.Text.authors let ided query_string = - fun n -> n.Text.id = query_string + let len = String.length query_string in + fun n -> + try String.sub n.Text.id 0 len = query_string + with Invalid_argument _ -> false let keyworded query_string = let q = String_set.query query_string in