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 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 =
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)
......
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