From 90424f6a206b32c0995e043fe404e694c884b5d3 Mon Sep 17 00:00:00 2001
From: Juergen Hoetzel <juergen@archlinux.org>
Date: Mon, 24 Aug 2015 13:55:44 +0200
Subject: [PATCH] * lang_js/analyze/module_js.ml: Fix invalid documentation
 comments. Refs #130

See: http://caml.inria.fr/mantis/view.php?id=6916
---
 lang_js/analyze/module_js.ml | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git lang_js/analyze/module_js.ml
index 1433bf0..3bf63b3 100644
--- lang_js/analyze/module_js.ml
+++ lang_js/analyze/module_js.ml
@@ -48,50 +48,50 @@ type shape =
 	| LiteralShape
 	| ArrayShape
 
-	(** _((id,container,maps) ref) **)
+	(* _((id,container,maps) ref) *)
 	(* this is a ref to allow extensible representations *)
 	(* id is unique, and is used to prune infinite recursion *)
 	(* maps is an ObjectShape list *)
 	| ObjectShape of (int * shape smap * shape list) ref
 
-	(** _(block,constructor) **)
+	(* _(block,constructor) *)
 	(* block is an ObjectShape *)
 	(* constructor is a ClassShape *)
     | FunctionShape of shape Common.smap ref * shape
 
-	(** _(module) **)
+	(* _(module) *)
 	| RequireShape of module_
 
-	(** _(reason) **)
+	(* _(reason) *)
 	| UnknownShape of string
 
-	(** _(instance, static) **)
+	(* _(instance, static) *)
 	(* instance is a ObjectShape *)
 	(* static is a ObjectShape where static.prototype is a ObjectShape *)
 	| ClassShape of shape * shape
 
-	(** _(class) **)
+	(* _(class) *)
 	(* class is a ClassShape *)
 	(* returns an ObjectShape *)
 	| NewShape of shape
 
-	(** _(maps) **)
+	(* _(maps) *)
 	(* maps is an ObjectShape *)
 	(* returns a ClassShape *)
 	| MixinShape of shape
 
-	(** _(class,mixin) **)
+	(* _(class,mixin) *)
 	(* class is a ClassShape, mixin is a ClassShape *)
 	(* returns a ClassShape *)
 	| ClassWithMixinShape of shape * shape
 
-	(** _(object,prop) **)
+	(* _(object,prop) *)
 	| PropertyShape of shape * string
 
-	(** _(function) **)
+	(* _(function) *)
 	| ApplyShape of shape
 
-	(** _(array) **)
+	(* _(array) *)
 	| ElementShape of shape
 
 let fresh_id =
-- 
2.5.0

