only escape fat arrow

reasonml · Oct 11, 2018 · 1d5e115 · 1d5e115
1 parent fa307a2
commit 1d5e115
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
@@ -396,8 +396,7 @@ let remove_literal_attrs_mapper =
 (** escape_stars_slashes_mapper escapes all stars and slashes 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 "//" "/\\/" @@