diff options
author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-03-14 09:16:51 +0300 |
---|---|---|
committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-03-14 09:17:11 +0300 |
commit | cb6d8589c83247ec96d5faa82df3e93f419bbfe0 (patch) | |
tree | 99b60cf2f7f03d9fc25040390a2f1d7b2b236d42 /compiler/parser | |
parent | 152055a19cf368439c8450040b68142f8e7d0346 (diff) | |
download | haskell-cb6d8589c83247ec96d5faa82df3e93f419bbfe0.tar.gz |
Slighly improve infix con app pattern errors
Given this program:
main = do
f $ do
a <- return 3
c <- do
return 5
GHC previously gave this error message:
Main.hs:2:7: error:
Parse error in pattern: do a <- return 3 c
Possibly caused by a missing 'do'?
|
2 | f $ do
| ^^...
What happened is GHC considered the whole `f $ do a <- return 3 c` as a
pattern. When parsed as an expression it becomes an infix application of
`($)`, and GHC checks left and right hand sides before checking if `($)`
is a valid infix constructor name, and shows the first error it got.
If instead we first check if the infix op is valid in pattern context,
the error message becomes much clearer:
Main.hs:2:3: error:
Parse error in pattern: f $ do a <- return 3 c
Possibly caused by a missing 'do'?
|
2 | f $ do
| ^^^^^^...
This may not entirely fix #11188 but I think it's an improvement.
Reviewers: bgamari
Reviewed By: bgamari
Subscribers: rwbarton, thomie, carter
GHC Trac Issues: #11188
Differential Revision: https://phabricator.haskell.org/D4497
Diffstat (limited to 'compiler/parser')
-rw-r--r-- | compiler/parser/RdrHsSyn.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/compiler/parser/RdrHsSyn.hs b/compiler/parser/RdrHsSyn.hs index e2943c8001..dc35c124cb 100644 --- a/compiler/parser/RdrHsSyn.hs +++ b/compiler/parser/RdrHsSyn.hs @@ -984,12 +984,13 @@ checkAPat msg loc e0 = do | extopt LangExt.NPlusKPatterns opts && (plus == plus_RDR) -> return (mkNPlusKPat (L nloc n) (L lloc lit)) - OpApp l op _fix r -> do l <- checkLPat msg l - r <- checkLPat msg r - case op of - L cl (HsVar (L _ c)) | isDataOcc (rdrNameOcc c) - -> return (ConPatIn (L cl c) (InfixCon l r)) - _ -> patFail msg loc e0 + OpApp l (L cl (HsVar (L _ c))) _fix r + | isDataOcc (rdrNameOcc c) -> do + l <- checkLPat msg l + r <- checkLPat msg r + return (ConPatIn (L cl c) (InfixCon l r)) + + OpApp _l _op _fix _r -> patFail msg loc e0 HsPar e -> checkLPat msg e >>= (return . ParPat) ExplicitList _ _ es -> do ps <- mapM (checkLPat msg) es |