one more < 4.06 fix

reasonml · Aug 7, 2020 · 48027c3 · 48027c3
1 parent 14d119f
commit 48027c3
Showing 1 changed file with 2 additions and 8 deletions.
diff --git a/src/reason-parser/reason_heuristics.ml b/src/reason-parser/reason_heuristics.ml
@@ -5,14 +5,8 @@ let is_punned_labelled_expression e lbl =
   match e.pexp_desc with
   | Pexp_ident { txt }
   | Pexp_constraint ({pexp_desc = Pexp_ident { txt }}, _)
-  | Pexp_coerce ({pexp_desc = Pexp_ident { txt }}, _, _)
-    ->
-     begin match Longident.unflatten [ lbl ] with
-     | Some lid ->
-       txt = lid
-     | None ->
-       false
-     end
+  | Pexp_coerce ({pexp_desc = Pexp_ident { txt }}, _, _) ->
+    (Reason_syntax_util.parse_lid lbl) = txt
   | _ -> false
 
 (* We manually check the length of `Thing.map(foo, bar, baz`,