diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2017-05-11 22:21:43 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2017-05-11 23:38:48 +0100 |
| commit | a3873e8cdec8fc966e91ebe024808376a4077e2b (patch) | |
| tree | 7101f05231203d47ddf284a1a894b55a1d5712e0 /compiler/parser | |
| parent | 37603032b1b159f325f7430f732abe00c79f1e24 (diff) | |
| download | haskell-a3873e8cdec8fc966e91ebe024808376a4077e2b.tar.gz | |
RnEnv refactoring
Summary: Lots of refactoring in RnEnv to reduce code duplication.
Reviewers: austin, bgamari
Reviewed By: bgamari
Subscribers: rwbarton, thomie
GHC Trac Issues: #13545
Differential Revision: https://phabricator.haskell.org/D3507
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/RdrHsSyn.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/RdrHsSyn.hs b/compiler/parser/RdrHsSyn.hs index db11287b26..d7facdc4f0 100644 --- a/compiler/parser/RdrHsSyn.hs +++ b/compiler/parser/RdrHsSyn.hs @@ -753,9 +753,9 @@ checkTyClHdr is_cls ty = goL head (args ++ acc) ann fixity go _ (HsAppsTy [L _ (HsAppInfix (L loc star))]) [] ann fix - | occNameFS (rdrNameOcc star) == fsLit "*" + | isStar star = return (L loc (nameRdrName starKindTyConName), [], fix, ann) - | occNameFS (rdrNameOcc star) == fsLit "★" + | isUniStar star = return (L loc (nameRdrName unicodeStarKindTyConName), [], fix, ann) go l (HsTupleTy HsBoxedOrConstraintTuple ts) [] ann fix |