diff options
| author | Tony Beta Lambda | 2018-01-01 14:50:39 +0800 |
|---|---|---|
| committer | Tony Beta Lambda | 2018-01-01 14:50:39 +0800 |
| commit | 7e05dec4044ad3785edc005a8504bf20819704d4 (patch) | |
| tree | 089df84ee779070d2cfef5fc952c6776def19bd2 | |
| parent | 2d6e395dead61a49ede6208bc40e16b4b8e68ce4 (diff) | |
Fix mli-doc issue #6531
| -rw-r--r-- | interp/constrexpr_ops.mli | 2 | ||||
| -rw-r--r-- | 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 |