From 7e05dec4044ad3785edc005a8504bf20819704d4 Mon Sep 17 00:00:00 2001
From: Tony Beta Lambda
Date: Mon, 1 Jan 2018 14:50:39 +0800
Subject: Fix mli-doc issue #6531

---
 interp/constrexpr_ops.mli | 2 +-
 stm/asyncTaskQueue.mli    | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/interp/constrexpr_ops.mli b/interp/constrexpr_ops.mli
index 3ecb3d3212..6e5c0f8515 100644
--- a/interp/constrexpr_ops.mli
+++ b/interp/constrexpr_ops.mli
@@ -84,7 +84,7 @@ val names_of_local_assums : local_binder_expr list -> Name.t located list
 (** Same as [names_of_local_binder_exprs], but does not take the [let] bindings into
     account. *)
 
-(** { 6 Folds and maps } *)
+(** {6 Folds and maps} *)
 
 (** Used in typeclasses *)
 val fold_constr_expr_with_binders : (Id.t -> 'a -> 'a) ->
diff --git a/stm/asyncTaskQueue.mli b/stm/asyncTaskQueue.mli
index 07689389ff..706d36e1d5 100644
--- a/stm/asyncTaskQueue.mli
+++ b/stm/asyncTaskQueue.mli
@@ -71,7 +71,7 @@ module type Task = sig
   (** Extra arguments of the task kind, for -toploop *)
   val extra_env : unit -> string array
 
-  (** {5} Master API, it is run by the master, on a thread *)
+  (** {5 Master API, it is run by the master, on a thread} *)
 
   (** [request_of_task status t] takes the [status] of the worker
       and a task [t] and creates the corresponding [Some request] to be
@@ -116,8 +116,8 @@ module type Task = sig
   (** [forward_feedback fb] sends fb to all the workers. *)
   val forward_feedback : Feedback.feedback -> unit
 
-  (** {5} Worker API, it is run by worker, on a different fresh
-      process *)
+  (** {5 Worker API, it is run by worker, on a different fresh
+      process} *)
 
   (** [perform in] synchronously processes a request [in] *)
   val perform : request -> response
-- 
cgit v1.2.3