Merge pull request #341 from samoht/format-comments

Format comments

.ocamlformat

@@ -6,4 +6,3 @@ nested-match=align
 sequence-style=separator
 break-before-in=auto
 if-then-else=keyword-first
-parse-docstrings=false

src/async/conduit_async.mli

@@ -19,18 +19,16 @@ val serve :
   service:('cfg, 't, 'v) service ->
   'cfg ->
   unit Async.Condition.t * (unit -> unit Async.Deferred.t)
-(** [serve ~handler ~service cfg] creates an usual infinite [service]
-    loop from the given configuration ['cfg]. It returns the {i promise}
-    to launch the loop and a condition variable to stop the loop.
+(** [serve ~handler ~service cfg] creates an usual infinite [service] loop from
+    the given configuration ['cfg]. It returns the {i promise} to launch the
+    loop and a condition variable to stop the loop.
 
     {[
-      let stop, loop = serve
-        ~handler ~service:TCP.service cfg in
-      Async_unix.Signal.handle [ Core.Signal.int ]
-        ~f:(fun _sig -> Async.Condition.broadcast stop ()) ;
+      let stop, loop = serve ~handler ~service:TCP.service cfg in
+      Async_unix.Signal.handle [ Core.Signal.int ] ~f:(fun _sig ->
+          Async.Condition.broadcast stop ()) ;
       loop ()
-    ]}
-*)
+    ]} *)
 
 val reader_and_writer_of_flow :
   flow -> (Async.Reader.t * Async.Writer.t) Async.Deferred.t

src/core/conduit.ml

@@ -28,8 +28,8 @@ module Log = (val Logs.src_log src : Logs.LOG)
 type ('a, 'b, 'c) thd =
   | Thd : 'b -> ('a, 'b, 'c) thd
       (** XXX(dinosaure): we must define [(_, _, _) thd] to be able to keep some
-          existential types (eg. ['cfg] and ['flow] when we use [('cfg, 't, 'flow)
-          service]) but still to use only on (eg. ['t]).
+          existential types (eg. ['cfg] and ['flow] when we use
+          [('cfg, 't, 'flow) service]) but still to use only on (eg. ['t]).
 
           We add [warning "-37"] to be able to compile the project. *)