code formating using and ocamlformat version=0.17.0

Signed-off-by: lubegasimon <lubegasimon73@gmail.com>

Author: lubegasimon

src/document/codefmt.ml

@@ -25,7 +25,7 @@ module State = struct
     if Stack.is_empty state.context then List.rev state.current
     else (
       leave state;
-      flush state )
+      flush state)
 end
 
 (** Modern implementation using semantic tags, Only for 4.08+ *)
@@ -178,7 +178,7 @@ let rec list ?sep ~f = function
   | x :: xs -> (
       let hd = f x in
       let tl = list ?sep ~f xs in
-      match sep with None -> hd ++ tl | Some sep -> hd ++ sep ++ tl )
+      match sep with None -> hd ++ tl | Some sep -> hd ++ sep ++ tl)
 
 let render f = spf "@[%t@]" (span f)
 

src/document/comment.ml

@@ -102,7 +102,7 @@ module Reference = struct
             let s = source_of_code s in
             [ inline @@ Inline.Source s ]
         | Some s ->
-            [ inline @@ Inline.InternalLink (InternalLink.Unresolved s) ] )
+            [ inline @@ Inline.InternalLink (InternalLink.Unresolved s) ])
     | `Dot (parent, s) -> unresolved ?text (parent :> t) s
     | `Module (parent, s) ->
         unresolved ?text (parent :> t) (ModuleName.to_string s)
@@ -145,7 +145,7 @@ module Reference = struct
         | Error exn ->
             (* FIXME: better error message *)
             Printf.eprintf "Id.href failed: %S\n%!" (Url.Error.to_string exn);
-            txt )
+            txt)
 
   and unresolved : ?text:Inline.t -> Reference.t -> string -> Inline.t =
    fun ?text parent field ->

src/document/doctree.ml

@@ -17,7 +17,7 @@ module Take = struct
           | Rec x -> loop acc (x @ rest)
           | Accum v -> loop (List.rev_append v acc) rest
           | Stop_and_keep -> (List.rev acc, None, b :: rest)
-          | Stop_and_accum (v, e) -> (List.rev_append acc v, e, rest) )
+          | Stop_and_accum (v, e) -> (List.rev_append acc v, e, rest))
     in
     loop [] items
 end
@@ -37,7 +37,7 @@ module Rewire = struct
               if level > current_level then
                 let children, rest = loop level [] rest in
                 loop current_level (node h children :: acc) rest
-              else (List.rev acc, l) )
+              else (List.rev acc, l))
     in
     let trees, rest = loop (-1) [] items in
     assert (rest = []);