Skip to content

Commit 68ade2b

Browse files
committed
ghost the ident inside the expression in let-puns (#2612)
(cherry picked from commit 794dfb0) Signed-off-by: David Vulakh <[email protected]>
1 parent 4c6962a commit 68ade2b

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

ocaml/parsing/parser.mly

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -122,7 +122,7 @@ let ghstr ~loc d = Str.mk ~loc:(ghost_loc loc) d
122122
let ghsig ~loc d = Sig.mk ~loc:(ghost_loc loc) d
123123

124124
let ghexpvar ~loc name =
125-
ghexp ~loc (Pexp_ident (mkrhs (Lident name) loc))
125+
ghexp ~loc (Pexp_ident (ghrhs (Lident name) loc))
126126

127127
let mkinfix arg1 op arg2 =
128128
Pexp_apply(op, [Nolabel, arg1; Nolabel, arg2])

0 commit comments

Comments
 (0)