Update ocamlformat to 0.27.0 (#250)

* dune fmt --auto-promote

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

* Update ocamlformat to 0.27.0

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

---------

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/dune

@@ -1,24 +1,29 @@
 (library
-  (name ocsigen_lib_base)
-  (public_name ocsigenserver.baselib.base)
-  (flags (:standard -no-keep-locs))
-  (modules ocsigen_lib_base)
-  (libraries lwt))
+ (name ocsigen_lib_base)
+ (public_name ocsigenserver.baselib.base)
+ (flags
+  (:standard -no-keep-locs))
+ (modules ocsigen_lib_base)
+ (libraries lwt))
 
 (library
-  (name baselib)
-  (public_name ocsigenserver.baselib)
-  (wrapped false)
-  (flags (:standard -no-keep-locs))
-  (modules
-    dynlink_wrapper
-    ocsigen_cache
-    ocsigen_config_static
-    ocsigen_lib
-    ocsigen_loader
-    ocsigen_stream)
-  (libraries
-     str findlib lwt_log lwt.unix cryptokit re ocsigen_lib_base
-     (select dynlink_wrapper.ml from
-       (dynlink -> dynlink_wrapper.natdynlink.ml)
-       (_ -> dynlink_wrapper.nonatdynlink.ml))))
+ (name baselib)
+ (public_name ocsigenserver.baselib)
+ (wrapped false)
+ (flags
+  (:standard -no-keep-locs))
+ (modules dynlink_wrapper ocsigen_cache ocsigen_config_static ocsigen_lib
+   ocsigen_loader ocsigen_stream)
+ (libraries
+  str
+  findlib
+  lwt_log
+  lwt.unix
+  cryptokit
+  re
+  ocsigen_lib_base
+  (select
+   dynlink_wrapper.ml
+   from
+   (dynlink -> dynlink_wrapper.natdynlink.ml)
+   (_ -> dynlink_wrapper.nonatdynlink.ml))))

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