diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2021-03-28 16:17:34 +0300 |
|---|---|---|
| committer | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2021-03-28 16:17:34 +0300 |
| commit | df27e931cc1961952aeb30df886182419974cdbe (patch) | |
| tree | 74cebdef62d525e0b27a10663b6620e03cca3626 /compiler/GHC/Parser | |
| parent | c57e3d459a4dc1644603f30a75d0e8d56794300b (diff) | |
| download | haskell-wip/remove-noghctc.tar.gz | |
WIP: Remove NoGhcTc from HsMatchContextwip/remove-noghctc
Diffstat (limited to 'compiler/GHC/Parser')
| -rw-r--r-- | compiler/GHC/Parser/PostProcess.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/GHC/Parser/PostProcess.hs b/compiler/GHC/Parser/PostProcess.hs index 9ac689c4d4..c239ea9497 100644 --- a/compiler/GHC/Parser/PostProcess.hs +++ b/compiler/GHC/Parser/PostProcess.hs @@ -649,7 +649,7 @@ mkPatSynMatchGroup (L loc patsyn_name) (L ld decls) = , m_ctxt = ctxt, m_pats = pats , m_grhss = rhs } where - ctxt = FunRhs { mc_fun = ln + ctxt = FunRhs { mc_fun = mapLoc CtxIdRdrName ln , mc_fixity = Prefix , mc_strictness = NoSrcStrict } @@ -658,7 +658,7 @@ mkPatSynMatchGroup (L loc patsyn_name) (L ld decls) = , m_pats = [p1, p2] , m_grhss = rhs } where - ctxt = FunRhs { mc_fun = ln + ctxt = FunRhs { mc_fun = mapLoc CtxIdRdrName ln , mc_fixity = Infix , mc_strictness = NoSrcStrict } @@ -1214,7 +1214,7 @@ checkFunBind strictness locF ann lhs_loc fun is_infix pats (L rhs_span grhss) return (makeFunBind fun (L (noAnnSrcSpan $ locA match_span) [L match_span (Match { m_ext = ApiAnn (spanAsAnchor locF) ann cs , m_ctxt = FunRhs - { mc_fun = fun + { mc_fun = mapLoc CtxIdRdrName fun , mc_fixity = is_infix , mc_strictness = strictness } , m_pats = ps @@ -1247,7 +1247,7 @@ checkPatBind loc annsIn (L _ (BangPat (ApiAnn _ ans cs) (L _ (VarPat _ v)))) [L (noAnnSrcSpan loc) (m (ApiAnn (spanAsAnchor loc) (ans++annsIn) cs) v)])) where m a v = Match { m_ext = a - , m_ctxt = FunRhs { mc_fun = v + , m_ctxt = FunRhs { mc_fun = mapLoc CtxIdRdrName v , mc_fixity = Prefix , mc_strictness = SrcStrict } , m_pats = [] |