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

---
 stm/asyncTaskQueue.mli | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'stm/asyncTaskQueue.mli')

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