projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8162c20
)
[project @ 2001-05-08 16:25:30 by simonpj]
author
simonpj
<unknown>
Tue, 8 May 2001 16:25:30 +0000
(16:25 +0000)
committer
simonpj
<unknown>
Tue, 8 May 2001 16:25:30 +0000
(16:25 +0000)
Fix braino
ghc/compiler/parser/Parser.y
patch
|
blob
|
history
diff --git
a/ghc/compiler/parser/Parser.y
b/ghc/compiler/parser/Parser.y
index
fc7db9e
..
b584fe8
100644
(file)
--- a/
ghc/compiler/parser/Parser.y
+++ b/
ghc/compiler/parser/Parser.y
@@
-1,6
+1,6
@@
{-
-----------------------------------------------------------------------------
-$Id: Parser.y,v 1.61 2001/05/08 14:44:37 simonpj Exp $
+$Id: Parser.y,v 1.62 2001/05/08 16:25:30 simonpj Exp $
Haskell grammar.
@@
-672,7
+672,7
@@
gdrhs :: { [RdrNameGRHS] }
| gdrh { [$1] }
gdrh :: { RdrNameGRHS }
- : '|' srcloc quals '=' exp { GRHS (reverse (ExprStmt $5 $2 : $3)) $2 }
+ : '|' srcloc quals '=' exp { GRHS (reverse (ResultStmt $5 $2 : $3)) $2 }
-----------------------------------------------------------------------------
-- Expressions