Commit ce85eb65 authored by simonmar's avatar simonmar
Browse files

[project @ 1999-11-08 15:33:20 by simonmar]

Don't allow litlits in patterns.
parent bd2fb1c5
......@@ -186,7 +186,8 @@ checkPat (HsApp f x) args =
checkPat e [] = case e of
EWildPat -> returnP WildPatIn
HsVar x -> returnP (VarPatIn x)
HsLit l -> returnP (LitPatIn l)
HsLit (HsLitLit _) -> patFail
HsLit l -> returnP (LitPatIn l)
ELazyPat e -> checkPat e [] `thenP` (returnP . LazyPatIn)
EAsPat n e -> checkPat e [] `thenP` (returnP . AsPatIn n)
ExprWithTySig e t -> checkPat e [] `thenP` \e ->
......
Markdown is supported
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