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/Tc/Module.hs | |
| parent | c57e3d459a4dc1644603f30a75d0e8d56794300b (diff) | |
| download | haskell-wip/remove-noghctc.tar.gz | |
WIP: Remove NoGhcTc from HsMatchContextwip/remove-noghctc
Diffstat (limited to 'compiler/GHC/Tc/Module.hs')
| -rw-r--r-- | compiler/GHC/Tc/Module.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Tc/Module.hs b/compiler/GHC/Tc/Module.hs index 09edfcb8c3..e67a6608d0 100644 --- a/compiler/GHC/Tc/Module.hs +++ b/compiler/GHC/Tc/Module.hs @@ -2231,7 +2231,7 @@ tcUserStmt (L loc (BodyStmt _ expr _ _)) ; let loc' = noAnnSrcSpan $ locA loc ; interPrintName <- getInteractivePrintName ; let fresh_it = itName uniq (locA loc) - matches = [mkMatch (mkPrefixFunRhs (L loc' fresh_it)) [] rn_expr + matches = [mkMatch (mkPrefixFunRhs (L loc' (CtxIdRdrName fresh_it))) [] rn_expr emptyLocalBinds] -- [it = expr] the_bind = L loc $ (mkTopFunBind FromSource |