Update ocamlformat to 0.27.0

Signed-off-by: Sora Morimoto <[email protected]>

Author: smorimoto

.ocamlformat

@@ -1,32 +1,33 @@
-version=0.26.2
-break-cases = fit
-break-collection-expressions = fit-or-vertical
-break-fun-decl = wrap
-break-fun-sig = wrap
-break-infix = wrap
-break-infix-before-func = false
-break-sequences = false
-break-separators = before
-break-string-literals = never
-break-struct = force
-cases-matching-exp-indent = compact
-doc-comments = after-when-possible
-dock-collection-brackets = false
-indicate-multiline-delimiters = no
-infix-precedence = indent
-let-and = compact
-let-binding-spacing = compact
-module-item-spacing = compact
-parens-tuple = multi-line-only
-parens-tuple-patterns = multi-line-only
-sequence-style = terminator
-sequence-blank-line = compact
-single-case = compact
-type-decl = compact
-if-then-else = keyword-first
-field-space = loose
-space-around-arrays = false
-space-around-records = false
-space-around-lists = false
-space-around-variants = false
-ocp-indent-compat = true
+version=0.27.0
+break-cases=fit
+break-collection-expressions=fit-or-vertical
+break-fun-decl=wrap
+break-fun-sig=wrap
+break-infix-before-func=false
+break-infix=wrap
+break-separators=before
+break-sequences=false
+break-string-literals=never
+break-struct=force
+cases-matching-exp-indent=compact
+doc-comments=after-when-possible
+dock-collection-brackets=false
+field-space=loose
+if-then-else=keyword-first
+indicate-multiline-delimiters=no
+infix-precedence=indent
+let-and=compact
+let-binding-spacing=compact
+module-item-spacing=compact
+ocp-indent-compat=true
+parens-tuple-patterns=multi-line-only
+parens-tuple=multi-line-only
+parse-docstrings=false
+sequence-blank-line=compact
+sequence-style=terminator
+single-case=compact
+space-around-arrays=false
+space-around-lists=false
+space-around-records=false
+space-around-variants=false
+type-decl=compact

src/baselib/dynlink_wrapper.natdynlink.ml

@@ -16,7 +16,7 @@
  * You should have received a copy of the GNU Lesser General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- *)
+*)
 
 open Dynlink
 

src/baselib/dynlink_wrapper.nonatdynlink.ml

@@ -16,7 +16,7 @@
  * You should have received a copy of the GNU Lesser General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- *)
+*)
 
 exception Error of string
 

src/baselib/ocsigen_cache.ml

@@ -14,7 +14,7 @@
  * You should have received a copy of the GNU Lesser General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- *)
+*)
 (**
    Cache.
 
@@ -124,9 +124,9 @@ end = struct
     ; mutable maxsize : int
     ; mutable finaliser_before : 'a node -> unit
     ; mutable finaliser_after : 'a node -> unit
-    ; (*   *) time_bound : time_bound option }
+    ; time_bound : time_bound option }
 
-  and time_bound = {(*   *) timer : float; mutable collector : unit Lwt.t option}
+  and time_bound = {timer : float; mutable collector : unit Lwt.t option}
 
   (* Checks (by BY):
 
@@ -435,7 +435,7 @@ functor
       ; mutable table : (A.value * A.key Dlist.node) H.t
       ; finder : A.key -> A.value Lwt.t
       ; clear : unit -> unit
-      (* This function clears the cache. It is put inside the
+        (* This function clears the cache. It is put inside the
                                cache structure so that it is garbage-collected only when the cache
                                is no longer referenced, as the functions themselves are put inside
                                a weak hash table *)

src/baselib/ocsigen_cache.mli

@@ -14,7 +14,7 @@
  * You should have received a copy of the GNU Lesser General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- *)
+*)
 
 (**
    Cache.

src/baselib/ocsigen_lib.ml

@@ -14,7 +14,7 @@
  * You should have received a copy of the GNU Lesser General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- *)
+*)
 
 include Ocsigen_lib_base
 module String = String_base
@@ -69,8 +69,9 @@ module Filename = struct
       then String.sub filename (pos + 1) (String.length filename - pos - 1)
       else (* Dot before a directory separator *)
         raise Not_found
-    with Not_found -> (* No dot in filename *)
-                      raise Not_found
+    with Not_found ->
+      (* No dot in filename *)
+      raise Not_found
 end
 
 (*****************************************************************************)
@@ -399,7 +400,6 @@ module Url = struct
             https, host, port, path, query
       in
       (* Note that the fragment (string after #) is not sent by browsers *)
-
       (*20110707 ' ' is encoded to '+' in queries, but not in paths.
         Warning: if we write the URL manually, we must encode ' ' to '+' manually
         (not done by the browser).

src/baselib/ocsigen_lib.mli

@@ -14,7 +14,7 @@
  * You should have received a copy of the GNU Lesser General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- *)
+*)
 
 (** This module contains some auxiliaries for the Ocsigenserver. In contrast to
     {!Ocsigen_lib_base}, the function may also refer to libraries other than the

src/baselib/ocsigen_lib_base.ml

@@ -14,7 +14,7 @@
  * You should have received a copy of the GNU Lesser General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- *)
+*)
 
 exception Ocsigen_Internal_Error of string
 exception Input_is_too_large

src/baselib/ocsigen_lib_base.mli

@@ -14,7 +14,7 @@
  * You should have received a copy of the GNU Lesser General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- *)
+*)
 
 (** This module just contains only extensions of the standard library and very
     basic Ocsigen values and exceptions. Cf. {!Ocsigen_lib} for functionality

src/baselib/ocsigen_loader.ml

@@ -16,7 +16,7 @@
  * You should have received a copy of the GNU Lesser General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- *)
+*)
 
 open Ocsigen_lib
 
@@ -33,18 +33,19 @@ let translate =
   if Ocsigen_config_static.is_native
   then
     fun filename ->
-    if Filename.check_suffix filename ".cmo"
-       || Filename.check_suffix filename ".cma"
-    then Filename.chop_extension filename ^ ".cmxs"
-    else filename
+      if
+        Filename.check_suffix filename ".cmo"
+        || Filename.check_suffix filename ".cma"
+      then Filename.chop_extension filename ^ ".cmxs"
+      else filename
   else
     fun filename ->
-    if Filename.check_suffix filename ".cmxs"
-    then
-      let filename = Filename.chop_extension filename in
-      let cma = filename ^ ".cma" in
-      if Sys.file_exists cma then cma else filename ^ ".cmo"
-    else filename
+      if Filename.check_suffix filename ".cmxs"
+      then
+        let filename = Filename.chop_extension filename in
+        let cma = filename ^ ".cma" in
+        if Sys.file_exists cma then cma else filename ^ ".cmo"
+      else filename
 
 (************************************************************************)
 (* Loading files *)