escape & in documentation (fixed issue HaxeFoundation#1088)

ronaldooliveiradevbr · Jul 26, 2012 · 9796f0f · 9796f0f
1 parent bdba17e
commit 9796f0f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/main.ml b/main.ml
@@ -85,6 +85,7 @@ let error ctx msg p =
 	ctx.has_error <- true
 
 let htmlescape s =
+	let s = String.concat "&amp;" (ExtString.String.nsplit s "&") in
 	let s = String.concat "&lt;" (ExtString.String.nsplit s "<") in
 	let s = String.concat "&gt;" (ExtString.String.nsplit s ">") in
 	s