Skip to content
Snippets Groups Projects
Commit 0b3442cc authored by Simon Marlow's avatar Simon Marlow
Browse files

[project @ 1999-11-08 16:24:17 by simonmar] 

basck out previous change;  Simon is working on a more correct fix
parent ce85eb65
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
ghc/compiler/parser/ParseUtil.lhs
+ 0
− 1
View file @ 0b3442cc
...@@ -186,7 +186,6 @@ checkPat (HsApp f x) args = ...@@ -186,7 +186,6 @@ checkPat (HsApp f x) args =
checkPat e [] = case e of checkPat e [] = case e of
EWildPat -> returnP WildPatIn EWildPat -> returnP WildPatIn
HsVar x -> returnP (VarPatIn x) HsVar x -> returnP (VarPatIn x)
HsLit (HsLitLit _) -> patFail
HsLit l -> returnP (LitPatIn l) HsLit l -> returnP (LitPatIn l)
ELazyPat e -> checkPat e [] `thenP` (returnP . LazyPatIn) ELazyPat e -> checkPat e [] `thenP` (returnP . LazyPatIn)
EAsPat n e -> checkPat e [] `thenP` (returnP . AsPatIn n) EAsPat n e -> checkPat e [] `thenP` (returnP . AsPatIn n)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment