src/pg.ml

@@ -62,9 +62,7 @@ let get_active_signkeys =
        WHERE expire_sign > $1 AND NOT EXISTS (SELECT esk_serial FROM \
        signkey_revocations AS skr WHERE esk.esk_serial = skr.esk_serial)"
   in
-  fun (module Conn : CONN) ->
-    let now = Ptime_clock.now () |> Option.some in
-    Conn.collect_list get_active_signkeys now
+  fun (module Conn : CONN) ~now -> Conn.collect_list get_active_signkeys now
 
 (* note: does not update revocation *)
 let insert_signkey =