From: lewie <unknown>
Date: Tue, 24 Apr 2001 20:12:18 +0000 (+0000)
Subject: [project @ 2001-04-24 20:12:18 by lewie]
X-Git-Tag: Approximately_9120_patches~2105
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f0a7c6a3d05d6f9791260cc64b5ef52209b9de9d;p=ghc-hetmet.git

[project @ 2001-04-24 20:12:18 by lewie]
Eh hem...  Wibble.
---

diff --git a/ghc/compiler/parser/ParseUtil.lhs b/ghc/compiler/parser/ParseUtil.lhs
index e444450..c4fa82a 100644
--- a/ghc/compiler/parser/ParseUtil.lhs
+++ b/ghc/compiler/parser/ParseUtil.lhs
@@ -275,7 +275,7 @@ isFunLhs (OpApp l (HsVar op) fix r) es  | not (isRdrDataCon op)
 				= case isFunLhs l es of
 				    Just (op', True, j : k : es') ->
 				      Just (op', True, j : OpApp k (HsVar op) fix r : es')
-				    Nothing -> Nothing
+				    _ -> Nothing
 isFunLhs (HsVar f) es | not (isRdrDataCon f)
 			 	= Just (f,False,es)
 isFunLhs (HsApp f e) es 	= isFunLhs f (e:es)