simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 11:15:35 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

format

Browse source
This commit is contained in:
Simon Cruanes 2023-08-08 12:37:19 -04:00
parent 1b7939c17a
commit a3f5dde2f1
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Tiny_httpd_server.ml
View file

@ -405,22 +405,22 @@ module Response = struct
else else
make_raw ~headers ~code "" (* invalid to not have a body *) 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 match r with
| Ok body -> make_raw ?headers ~code body | Ok body -> make_raw ?headers ~code body
| Error (code, msg) -> make_raw ?headers ~code msg | 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 match r with
| Ok body -> make_raw_stream ?headers ~code body | Ok body -> make_raw_stream ?headers ~code body
| Error (code, msg) -> make_raw ?headers ~code msg | 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 match r with
| Ok body -> make_raw_writer ?headers ~code body | Ok body -> make_raw_writer ?headers ~code body
| Error (code, msg) -> make_raw ?headers ~code msg | 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 match r with
| Ok (`String body) -> make_raw ?headers ~code body | Ok (`String body) -> make_raw ?headers ~code body
| Ok (`Stream body) -> make_raw_stream ?headers ~code body | Ok (`Stream body) -> make_raw_stream ?headers ~code body