From: simonpj <unknown>
Date: Tue, 8 May 2001 16:25:30 +0000 (+0000)
Subject: [project @ 2001-05-08 16:25:30 by simonpj]
X-Git-Tag: Approximately_9120_patches~1973
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=ac60a2e47af844d278216a5f873945a0e2893a21;p=ghc-hetmet.git

[project @ 2001-05-08 16:25:30 by simonpj]
Fix braino
---

diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y
index fc7db9e..b584fe8 100644
--- 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