From: simonmar <unknown>
Date: Mon, 4 Feb 2002 11:49:33 +0000 (+0000)
Subject: [project @ 2002-02-04 11:49:33 by simonmar]
X-Git-Tag: Approximately_9120_patches~179
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1ba0b04c4d23e4f3c6dd4e7f438a1b1e35b34834;p=ghc-hetmet.git

[project @ 2002-02-04 11:49:33 by simonmar]
Tighten up syntax w.r.t. Haskell 98; this is disallowed:

	(a `op` b) = ...

since a parenthesised lhs must be followed by at least one parameter.
---

diff --git a/ghc/compiler/parser/ParseUtil.lhs b/ghc/compiler/parser/ParseUtil.lhs
index 7d2d2b9..8d57937 100644
--- a/ghc/compiler/parser/ParseUtil.lhs
+++ b/ghc/compiler/parser/ParseUtil.lhs
@@ -290,7 +290,7 @@ isFunLhs (OpApp l (HsVar op) fix r) es  | not (isRdrDataCon op)
 isFunLhs (HsVar f) es | not (isRdrDataCon f)
 			 	= Just (f,False,es)
 isFunLhs (HsApp f e) es 	= isFunLhs f (e:es)
-isFunLhs (HsPar e)   es 	= isFunLhs e es
+isFunLhs (HsPar e)   es@(_:_) 	= isFunLhs e es
 isFunLhs _ _ 			= Nothing
 
 ---------------------------------------------------------------------------