From 0b3442ccd2158dac03910aefce7d0d43c6ea88ad Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 8 Nov 1999 16:24:17 +0000
Subject: [PATCH] [project @ 1999-11-08 16:24:17 by simonmar] basck out
 previous change;  Simon is working on a more correct fix

---
 ghc/compiler/parser/ParseUtil.lhs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/ghc/compiler/parser/ParseUtil.lhs b/ghc/compiler/parser/ParseUtil.lhs
index 77b7052bd491..a679d3aafde5 100644
--- a/ghc/compiler/parser/ParseUtil.lhs
+++ b/ghc/compiler/parser/ParseUtil.lhs
@@ -186,7 +186,6 @@ checkPat (HsApp f x) args =
 checkPat e [] = case e of
 	EWildPat	   -> returnP WildPatIn
 	HsVar x		   -> returnP (VarPatIn x)
-	HsLit (HsLitLit _) -> patFail
 	HsLit l 	   -> returnP (LitPatIn l)
 	ELazyPat e	   -> checkPat e [] `thenP` (returnP . LazyPatIn)
 	EAsPat n e	   -> checkPat e [] `thenP` (returnP . AsPatIn n)
-- 
GitLab