ocamlformat my changes

rgrinberg · Mar 22, 2021 · b044e32 · b044e32
1 parent 98baec5
commit b044e32
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/opium/src/middlewares/middleware_static_unix.ml b/opium/src/middlewares/middleware_static_unix.ml
@@ -3,7 +3,8 @@ open Lwt.Syntax
 let default_etag ~local_path fname =
   let fpath = Filename.concat local_path fname in
   let* exists = Lwt_unix.file_exists fpath in
-  if exists then
+  if exists
+  then
     let* stat = Lwt_unix.stat fpath in
     let hash =
       Marshal.to_string stat.st_mtime []
@@ -13,11 +14,10 @@ let default_etag ~local_path fname =
       |> Base64.encode_exn
     in
     Lwt.return_some hash
-  else
-    Lwt.return_none
+  else Lwt.return_none
 ;;
 
-let m ~local_path ?uri_prefix ?headers ?(etag_of_fname=default_etag ~local_path) () =
+let m ~local_path ?uri_prefix ?headers ?(etag_of_fname = default_etag ~local_path) () =
   let read fname =
     let* body = Body.of_file (Filename.concat local_path fname) in
     match body with

diff --git a/opium/src/opium.mli b/opium/src/opium.mli
@@ -167,8 +167,8 @@ module Middleware : sig
 
       The behaviour of the middleware is similar to {!static}, since the latter is used
       with a [read] function that reads from the local filesystem. Unlike {!static}, this
-      middleware supplies a default [etag_of_fname] which derives an appropriate ETag
-      from the last modification timestamp of the served file. *)
+      middleware supplies a default [etag_of_fname] which derives an appropriate ETag from
+      the last modification timestamp of the served file. *)
   val static_unix
     :  local_path:string
     -> ?uri_prefix:string