From 64df8616f96951792088566493b43aacd3576ffe Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 25 Mar 2020 23:03:51 -0400 Subject: [PATCH] style: fix example --- src/examples/echo.ml | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/src/examples/echo.ml b/src/examples/echo.ml index 214c112f..ebfd6a1a 100644 --- a/src/examples/echo.ml +++ b/src/examples/echo.ml @@ -23,17 +23,17 @@ let () = in let ic = open_in path in let str = S.Byte_stream.of_chan ic in - let mime_type = - try - let p = Unix.open_process_in (Printf.sprintf "file -i -b %S" path) in - try - let s = ["Content-Type", String.trim (input_line p)] in - ignore @@ Unix.close_process_in p; - s - with _ -> ignore @@ Unix.close_process_in p; [] - with _ -> [] - in - S.Response.make_stream ~headers:mime_type (Ok str) + let mime_type = + try + let p = Unix.open_process_in (Printf.sprintf "file -i -b %S" path) in + try + let s = ["Content-Type", String.trim (input_line p)] in + ignore @@ Unix.close_process_in p; + s + with _ -> ignore @@ Unix.close_process_in p; [] + with _ -> [] + in + S.Response.make_stream ~headers:mime_type (Ok str) ); (* echo request *) S.add_path_handler server