diff --git a/src/http_management.ml b/src/http_management.ml index 5e5c64fb..15ceed25 100644 --- a/src/http_management.ml +++ b/src/http_management.ml @@ -381,12 +381,12 @@ module Wire_fee = struct } let do_ ~db_conn (v : WireFeeSetupMessage.t) = - let* wire_fee_opt = + let* wire_fees = Pg.get_wire_fees_by_time db_conn ~wire_method:v.wire_method ~start_date:v.fee_start ~end_date:v.fee_end |> unwrap_err_caqti in - match wire_fee_opt with + match wire_fees with | [] -> let+ () = Pg.insert_wire_fee db_conn v |> unwrap_err_caqti in ()