diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2019-02-02 16:29:05 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-02-08 11:00:22 -0500 |
| commit | 5e9888bd9c22a1315a703f638591b50e657317c4 (patch) | |
| tree | 5510eb74b731855569b38480df2af673680c09c6 /compiler/hsSyn | |
| parent | cbfc9fcaa33c3b341830962906543dfca1dfedd7 (diff) | |
| download | haskell-5e9888bd9c22a1315a703f638591b50e657317c4.tar.gz | |
API Annotations: parens anns discarded for `(*)` operator
The patch from https://phabricator.haskell.org/D4865 introduces
go _ (HsParTy _ (dL->L l (HsStarTy _ isUni))) acc ann fix
= do { warnStarBndr l
; let name = mkOccName tcClsName (if isUni then "★" else "*")
; return (cL l (Unqual name), acc, fix, ann) }
which discards the parens annotations belonging to the HsParTy.
Updates haddock submodule
Closes #16265
Diffstat (limited to 'compiler/hsSyn')
| -rw-r--r-- | compiler/hsSyn/HsUtils.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/hsSyn/HsUtils.hs b/compiler/hsSyn/HsUtils.hs index dfb0ebf0db..23cca4c737 100644 --- a/compiler/hsSyn/HsUtils.hs +++ b/compiler/hsSyn/HsUtils.hs @@ -502,7 +502,8 @@ nlHsTyConApp tycon tys = foldl' nlHsAppTy (nlHsTyVar tycon) tys nlHsAppKindTy :: LHsType (GhcPass p) -> LHsKind (GhcPass p) -> LHsType (GhcPass p) -nlHsAppKindTy f k = noLoc (HsAppKindTy noExt f (parenthesizeHsType appPrec k)) +nlHsAppKindTy f k + = noLoc (HsAppKindTy noSrcSpan f (parenthesizeHsType appPrec k)) {- Tuples. All these functions are *pre-typechecker* because they lack |