From 1ba0b04c4d23e4f3c6dd4e7f438a1b1e35b34834 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 4 Feb 2002 11:49:33 +0000
Subject: [PATCH] [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.
---
 ghc/compiler/parser/ParseUtil.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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