diff options
author | Dr. ERDI Gergo <gergo@erdi.hu> | 2021-07-22 11:37:35 +0800 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-08-13 07:53:53 -0400 |
commit | 7ad813a480c9ed383fe1fea11a57f90d4f6f9b71 (patch) | |
tree | 97343b332943c3c5fb408d58cf1ff0bc339bc495 /compiler/GHC/Hs/Utils.hs | |
parent | 100ffe75f509a73f1b26e768237888646f522b6c (diff) | |
download | haskell-7ad813a480c9ed383fe1fea11a57f90d4f6f9b71.tar.gz |
Move `ol_witness` to `OverLitTc`
We also add a new `ol_from_fun` field to renamed (but not yet
typechecked) OverLits. This has the nice knock-on effect of making
total some typechecker functions that used to be partial.
Fixes #20151
Diffstat (limited to 'compiler/GHC/Hs/Utils.hs')
-rw-r--r-- | compiler/GHC/Hs/Utils.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Hs/Utils.hs b/compiler/GHC/Hs/Utils.hs index a0f4fa4c07..87fc46ff12 100644 --- a/compiler/GHC/Hs/Utils.hs +++ b/compiler/GHC/Hs/Utils.hs @@ -345,9 +345,9 @@ mkRecStmt :: (Anno [GenLocated -> StmtLR (GhcPass idL) GhcPs bodyR -mkHsIntegral i = OverLit noExtField (HsIntegral i) noExpr -mkHsFractional f = OverLit noExtField (HsFractional f) noExpr -mkHsIsString src s = OverLit noExtField (HsIsString src s) noExpr +mkHsIntegral i = OverLit noExtField (HsIntegral i) +mkHsFractional f = OverLit noExtField (HsFractional f) +mkHsIsString src s = OverLit noExtField (HsIsString src s) mkHsDo ctxt stmts = HsDo noAnn ctxt stmts mkHsDoAnns ctxt stmts anns = HsDo anns ctxt stmts |