From 97e199971b9e0eeaa980a0ab59fab5ec589c09ff Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 1 Dec 1999 17:01:36 +0000
Subject: [PATCH] [project @ 1999-12-01 17:01:36 by simonmar] disallow case
 expressions with no alternatives.

---
 ghc/compiler/parser/Parser.y |   12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

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
-- 
1.7.10.4