src/http_information.ml

@@ -18,7 +18,7 @@ let seed req _server _env =
 let config req _server _env =
   Logs.info (fun m -> m "GET /config");
   let s = Api.(encode_exn ExchangeVersionResponse.jsont config) in
-  Respond_util.respond_with_ok_json s req
+  Respond.ok s req
 
 (* TODO
    for now we only have one item in each "denom group"
@@ -276,4 +276,4 @@ let keys req server _env =
     let s = Api.encode_exn jsont v in
     Ok s
   in
-  Respond_util.respond_with_res res req
+  Respond.result res req

src/http_management.ml

@@ -109,7 +109,7 @@ module Keys_get = struct
       let s = Api.encode_exn jsont v in
       Ok s
     in
-    Respond_util.respond_with_res res req
+    Respond.result res req
 end
 
 module Keys_post = struct
@@ -215,7 +215,7 @@ module Keys_post = struct
       let* () = do_ ~db_conn sm v in
       Ok ""
     in
-    Respond_util.respond_with_res res req
+    Respond.result res req
 end
 
 module Denom_revoke = struct
@@ -246,7 +246,7 @@ module Denom_revoke = struct
       let* () = do_ ~db_conn sm h_denom_pub v in
       Ok ""
     in
-    Respond_util.respond_with_res res req
+    Respond.result res req
 end
 
 module Signkey_revoke = struct
@@ -277,7 +277,7 @@ module Signkey_revoke = struct
       let* () = do_ ~db_conn sm exchange_pub v in
       Ok ""
     in
-    Respond_util.respond_with_res res req
+    Respond.result res req
 end
 
 module Auditors = struct
@@ -333,7 +333,7 @@ module Auditors = struct
       let* () = do_ ~db_conn v in
       Ok ""
     in
-    Respond_util.respond_with_res res req
+    Respond.result res req
 end
 
 module Auditors_disable = struct
@@ -374,7 +374,7 @@ module Auditors_disable = struct
       let* () = do_ ~db_conn auditor_pub v in
       Ok ""
     in
-    Respond_util.respond_with_res res req
+    Respond.result res req
 end
 
 module Wire_fee = struct
@@ -433,7 +433,7 @@ module Wire_fee = struct
       let* () = do_ ~db_conn v in
       Ok ""
     in
-    Respond_util.respond_with_res res req
+    Respond.result res req
 end
 
 module Global_fees = struct
@@ -504,7 +504,7 @@ module Global_fees = struct
       let* () = do_ ~db_conn v in
       Ok ""
     in
-    Respond_util.respond_with_res res req
+    Respond.result res req
 end
 
 module Wire = struct
@@ -582,7 +582,7 @@ module Wire = struct
       let* () = do_ ~db_conn v in
       Ok ""
     in
-    Respond_util.respond_with_res res req
+    Respond.result res req
 end
 
 module Wire_disable = struct
@@ -617,7 +617,7 @@ module Wire_disable = struct
       let* () = do_ ~db_conn v in
       Ok ""
     in
-    Respond_util.respond_with_res res req
+    Respond.result res req
 end
 
 module Drain = struct
@@ -657,7 +657,7 @@ module Drain = struct
       let* () = do_ ~db_conn v in
       Ok ""
     in
-    Respond_util.respond_with_res res req
+    Respond.result res req
 end
 
 module AmlOfficer = struct
@@ -697,7 +697,7 @@ module AmlOfficer = struct
       let* () = do_ ~db_conn v in
       Ok ""
     in
-    Respond_util.respond_with_res res req
+    Respond.result res req
 end
 
 module Partners = struct
@@ -739,5 +739,5 @@ module Partners = struct
       let* () = do_ ~db_conn v in
       Ok ""
     in
-    Respond_util.respond_with_res res req
+    Respond.result res req
 end

src/static.ml

@@ -11,8 +11,8 @@ let aux asset req _server _env =
         |> Result.map (Headers_lib.If_none_match.evaluate etag)
   in
   match has_matching_etag with
-  | Error e -> Respond_util.bad_request ~hint:e req
+  | Error e -> Respond.bad_request ~hint:e req
-  | Ok true -> Respond_util.not_modified ()
+  | Ok true -> Respond.not_modified ()
   | Ok false ->
       let mime = Headers.select_mimetype headers in
       let lang = Headers.select_language headers in