only escape fat arrow

reasonml · Jun 3, 2018 · 8e8729a · 8e8729a
1 parent 000aee1
commit 8e8729a
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/reason-parser/reason_syntax_util.ml b/src/reason-parser/reason_syntax_util.ml
@@ -393,8 +393,7 @@ let identifier_mapper f super =
 (** escape_stars_slashes_mapper escapes all stars and slases in an AST *)
 let escape_stars_slashes_mapper =
   let escape_stars_slashes str =
-    if (String.contains str '/') ||
-       ((String.contains str '=') && (String.contains str '>')) then
+    if (String.contains str '/') || (str = "=>") then
       replace_string "/*" "/\\*" @@
       replace_string "*/" "*\\/" @@
       replace_string "//" "/\\/" @@