Fix parsing ml files

reasonml · Nov 21, 2019 · dfd42fc · dfd42fc
1 parent c949007
commit dfd42fc
Showing 1 changed file with 7 additions and 8 deletions.
diff --git a/src/reason-parser/reason_pprint_ast.ml b/src/reason-parser/reason_pprint_ast.ml
@@ -6500,14 +6500,13 @@ let printer = object(self:'self)
         (self#core_type vd.pval_type)
     in
     let primDecl =
-      if vd.pval_prim = [(vd.pval_name).txt]
-      then lblBefore
-      else
-        (let frstHalf = makeList ~postSpace:true [lblBefore; atom "="] in
-         let sndHalf =
-           makeSpacedBreakableInlineList
-             (List.map self#constant_string vd.pval_prim) in
-         label ~space:true frstHalf sndHalf)
+      match vd.pval_prim with
+      | [""] -> lblBefore
+      | _ when vd.pval_prim = [vd.pval_name.txt] -> lblBefore
+      | _ ->
+        let frstHalf = makeList ~postSpace:true [lblBefore; atom "="] in
+        let sndHalf = makeSpacedBreakableInlineList (List.map self#constant_string vd.pval_prim) in
+        label ~space:true frstHalf sndHalf
     in
     match vd.pval_attributes with
     | [] -> primDecl