diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-05-09 11:53:47 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-05-09 11:53:47 +0100 |
| commit | cbebca1c9164a5e5ae9b117d0dcf5ad217defc6d (patch) | |
| tree | 1a02513eeb14c54d1f538fb580cebc232f45bbd4 /compiler/parser | |
| parent | 37a6a52facd1c3999ce4472c50b0030568be1e04 (diff) | |
| parent | 3d56d5ae395675717d695172cacdd61c1565c42d (diff) | |
| download | haskell-cbebca1c9164a5e5ae9b117d0dcf5ad217defc6d.tar.gz | |
Merge ghc-new-co into master branch
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/ParserCore.y | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/parser/ParserCore.y b/compiler/parser/ParserCore.y index 8bf94539fa..3f2b32a8b3 100644 --- a/compiler/parser/ParserCore.y +++ b/compiler/parser/ParserCore.y @@ -269,7 +269,7 @@ exp :: { IfaceExpr } | '%let' let_bind '%in' exp { IfaceLet $2 $4 } -- gaw 2004 | '%case' '(' ty ')' aexp '%of' id_bndr - '{' alts1 '}' { IfaceCase $5 (fst $7) $3 $9 } + '{' alts1 '}' { IfaceCase $5 (fst $7) $9 } | '%cast' aexp aty { IfaceCast $2 $3 } -- No InlineMe any more -- | '%note' STRING exp |