diff --git a/src/http_keys.ml b/src/http_keys.ml index 921e6ae0..9b2861ab 100644 --- a/src/http_keys.ml +++ b/src/http_keys.ml @@ -132,7 +132,7 @@ let mk_keys ~db_conn (module Sm : Secmod.S) ~last_issue_date = | None -> denom_data_l | Some _ -> List.filter - (fun v -> timestamp_to_int v.stamp_start > last_issue_date) + (fun v -> timestamp_to_int v.stamp_start >= last_issue_date) denom_data_l) in List.map denomgroup_of_denomdata l