From: simonmar <unknown>
Date: Wed, 1 Dec 1999 17:01:36 +0000 (+0000)
Subject: [project @ 1999-12-01 17:01:36 by simonmar]
X-Git-Tag: Approximately_9120_patches~5451
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=97e199971b9e0eeaa980a0ab59fab5ec589c09ff;p=ghc-hetmet.git

[project @ 1999-12-01 17:01:36 by simonmar]
disallow case expressions with no alternatives.
---

diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y
index 811607a..87f6458 100644
--- a/ghc/compiler/parser/Parser.y
+++ b/ghc/compiler/parser/Parser.y
@@ -1,6 +1,6 @@
 {-
 -----------------------------------------------------------------------------
-$Id: Parser.y,v 1.17 1999/11/30 16:10:11 lewie Exp $
+$Id: Parser.y,v 1.18 1999/12/01 17:01:36 simonmar Exp $
 
 Haskell grammar.
 
@@ -743,12 +743,14 @@ altslist :: { [RdrNameMatch] }
 	: '{'            alts '}'	{ reverse $2 }
 	|     layout_on  alts  close	{ reverse $2 }
 
+alts    :: { [RdrNameMatch] }
+        : alts1				{ $1 }
+	| ';' alts			{ $2 }
 
-alts 	:: { [RdrNameMatch] }
-	: alts ';' alt			{ $3 : $1 }
-	| alts ';'			{ $1 }
+alts1 	:: { [RdrNameMatch] }
+	: alts1 ';' alt			{ $3 : $1 }
+	| alts1 ';'			{ $1 }
 	| alt				{ [$1] }
-	| {- empty -}			{ [] }
 
 alt 	:: { RdrNameMatch }
 	: infixexp opt_sig ralt wherebinds