remove extra sprintf

Corentin Leruth · Corentin Leruth · commit e5a977b3400a · 2025-05-12T08:27:23.000Z
diff --git a/httpev_common.ml b/httpev_common.ml
@@ -141,32 +141,32 @@ let show_http_version = function
   | `Http_1_1 -> "HTTP/1.1"
 
 let show_status_code : status_code -> string = function
-  | `Ok -> sprintf "200 OK"
-  | `Created -> sprintf "201 Created"
-  | `Accepted -> sprintf "202 Accepted"
-  | `No_content -> sprintf "204 No Content"
-
-  | `Moved -> sprintf "301 Moved Permanently"
-  | `Found -> sprintf "302 Found"
-
-  | `Bad_request -> sprintf "400 Bad Request"
-  | `Unauthorized -> sprintf "401 Unauthorized"
-  | `Payment_required -> sprintf "402 Payment Required"
-  | `Forbidden -> sprintf "403 Forbidden"
-  | `Not_found -> sprintf "404 Not Found"
-  | `Method_not_allowed -> sprintf "405 Method Not Allowed"
-  | `Not_acceptable -> sprintf "406 Not Acceptable"
-  | `Conflict -> sprintf "409 Conflict"
-  | `Length_required -> sprintf "411 Length Required"
-  | `Request_too_large -> sprintf "413 Request Entity Too Large"
-  | `I'm_a_teapot -> sprintf "418 I'm a teapot"
-  | `Unprocessable_content -> sprintf "422 Unprocessable Content"
-  | `Too_many_requests -> sprintf "429 Too Many Requests"
-
-  | `Internal_server_error -> sprintf "500 Internal Server Error"
-  | `Not_implemented -> sprintf "501 Not Implemented"
-  | `Service_unavailable -> sprintf "503 Service Unavailable"
-  | `Version_not_supported -> sprintf "505 HTTP Version Not Supported"
+  | `Ok -> "200 OK"
+  | `Created -> "201 Created"
+  | `Accepted -> "202 Accepted"
+  | `No_content -> "204 No Content"
+
+  | `Moved -> "301 Moved Permanently"
+  | `Found -> "302 Found"
+
+  | `Bad_request -> "400 Bad Request"
+  | `Unauthorized -> "401 Unauthorized"
+  | `Payment_required -> "402 Payment Required"
+  | `Forbidden -> "403 Forbidden"
+  | `Not_found -> "404 Not Found"
+  | `Method_not_allowed -> "405 Method Not Allowed"
+  | `Not_acceptable -> "406 Not Acceptable"
+  | `Conflict -> "409 Conflict"
+  | `Length_required -> "411 Length Required"
+  | `Request_too_large -> "413 Request Entity Too Large"
+  | `I'm_a_teapot -> "418 I'm a teapot"
+  | `Unprocessable_content -> "422 Unprocessable Content"
+  | `Too_many_requests -> "429 Too Many Requests"
+
+  | `Internal_server_error -> "500 Internal Server Error"
+  | `Not_implemented -> "501 Not Implemented"
+  | `Service_unavailable -> "503 Service Unavailable"
+  | `Version_not_supported -> "505 HTTP Version Not Supported"
 
 let show_http_reply : version:[ `Http_1_0 | `Http_1_1 ] -> reply_status -> string =
  fun ~version reply_status ->
