[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 (file)
--- 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)