projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Retain inline-pragma information on unfoldings in interface files
[ghc-hetmet.git]
/
compiler
/
parser
/
ParserCore.y
diff --git
a/compiler/parser/ParserCore.y
b/compiler/parser/ParserCore.y
index
225c164
..
1925dac
100644
(file)
--- a/
compiler/parser/ParserCore.y
+++ b/
compiler/parser/ParserCore.y
@@
-200,12
+200,12
@@
let_bind :: { IfaceBinding }
| vdef { let (b,r) = $1
in IfaceNonRec b r }
| vdef { let (b,r) = $1
in IfaceNonRec b r }
-vdefs1 :: { [(IfaceIdBndr, IfaceExpr)] }
+vdefs1 :: { [(IfaceLetBndr, IfaceExpr)] }
: vdef { [$1] }
| vdef ';' vdefs1 { $1:$3 }
: vdef { [$1] }
| vdef ';' vdefs1 { $1:$3 }
-vdef :: { (IfaceIdBndr, IfaceExpr) }
- : fs_var_occ '::' ty '=' exp { (($1, $3), $5) }
+vdef :: { (IfaceLetBndr, IfaceExpr) }
+ : fs_var_occ '::' ty '=' exp { (IfLetBndr $1 $3 NoInfo, $5) }
| '%local' vdef { $2 }
-- NB: qd_occ includes data constructors, because
| '%local' vdef { $2 }
-- NB: qd_occ includes data constructors, because