diff options
| author | Shayne Fletcher <shayne@shaynefletcher.org> | 2021-04-24 16:59:26 -0400 |
|---|---|---|
| committer | Shayne Fletcher <shayne@shaynefletcher.org> | 2021-04-26 18:52:13 -0400 |
| commit | 76f82c0eb0212a1d6d2712996b4f19984aec80be (patch) | |
| tree | d86f70f6b432ddbeadc6d427d8c366718468be33 /compiler/GHC/Tc/Gen/Expr.hs | |
| parent | 7bc7eea3897dcb8a87fdb0921f451b9bc77309f6 (diff) | |
| download | haskell-76f82c0eb0212a1d6d2712996b4f19984aec80be.tar.gz | |
Change representation of field selector occurenceswip/T19720
Diffstat (limited to 'compiler/GHC/Tc/Gen/Expr.hs')
| -rw-r--r-- | compiler/GHC/Tc/Gen/Expr.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/GHC/Tc/Gen/Expr.hs b/compiler/GHC/Tc/Gen/Expr.hs index ecd07c6059..fd6568e186 100644 --- a/compiler/GHC/Tc/Gen/Expr.hs +++ b/compiler/GHC/Tc/Gen/Expr.hs @@ -23,7 +23,6 @@ module GHC.Tc.Gen.Expr tcPolyExpr, tcExpr, tcSyntaxOp, tcSyntaxOpGen, SyntaxOpType(..), synKnownType, tcCheckId, - addAmbiguousNameErr, getFixedTyVars ) where #include "HsVersions.h" @@ -978,7 +977,7 @@ tcSyntaxOpGen :: CtOrigin -> ([TcSigmaType] -> [Mult] -> TcM a) -> TcM (a, SyntaxExprTc) tcSyntaxOpGen orig (SyntaxExprRn op) arg_tys res_ty thing_inside - = do { (expr, sigma) <- tcInferAppHead (op, VACall op 0 noSrcSpan) [] Nothing + = do { (expr, sigma) <- tcInferAppHead (op, VACall op 0 noSrcSpan) [] -- Ugh!! But all this code is scheduled for demolition anyway ; traceTc "tcSyntaxOpGen" (ppr op $$ ppr expr $$ ppr sigma) ; (result, expr_wrap, arg_wraps, res_wrap) @@ -1375,7 +1374,7 @@ tcRecordUpd con_like arg_tys rbinds = fmap catMaybes $ mapM do_bind rbinds return (Just (L l (fld { hsRecFieldLbl = L loc (Unambiguous - (extFieldOcc (unLoc f')) + (foExt (unLoc f')) (L (noAnnSrcSpan loc) lbl)) , hsRecFieldArg = rhs' }))) } |