From a3f5dde2f185a7589f9fc576081ff43e12309b88 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Tue, 8 Aug 2023 12:37:19 -0400 Subject: [PATCH] format --- src/Tiny_httpd_server.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Tiny_httpd_server.ml b/src/Tiny_httpd_server.ml index a3e36057..c8cc7a3e 100644 --- a/src/Tiny_httpd_server.ml +++ b/src/Tiny_httpd_server.ml @@ -405,22 +405,22 @@ module Response = struct else make_raw ~headers ~code "" (* invalid to not have a body *) - let make_string ?headers ?(code=200) r = + let make_string ?headers ?(code = 200) r = match r with | Ok body -> make_raw ?headers ~code body | Error (code, msg) -> make_raw ?headers ~code msg - let make_stream ?headers ?(code=200) r = + let make_stream ?headers ?(code = 200) r = match r with | Ok body -> make_raw_stream ?headers ~code body | Error (code, msg) -> make_raw ?headers ~code msg - let make_writer ?headers ?(code=200) r : t = + let make_writer ?headers ?(code = 200) r : t = match r with | Ok body -> make_raw_writer ?headers ~code body | Error (code, msg) -> make_raw ?headers ~code msg - let make ?headers ?(code=200) r : t = + let make ?headers ?(code = 200) r : t = match r with | Ok (`String body) -> make_raw ?headers ~code body | Ok (`Stream body) -> make_raw_stream ?headers ~code body