Apoorv Ingle pushed to branch wip/ani/T27156 at Glasgow Haskell Compiler / GHC
Commits:
-
a8c875ee
by Apoorv Ingle at 2026-06-08T16:55:20-05:00
2 changed files:
Changes:
| ... | ... | @@ -24,7 +24,6 @@ import GHC.Hs |
| 24 | 24 | import GHC.Types.Name.Reader
|
| 25 | 25 | import GHC.Tc.Errors.Types
|
| 26 | 26 | import GHC.Tc.Utils.Monad
|
| 27 | -import GHC.Tc.Gen.Expand
|
|
| 28 | 27 | import GHC.Driver.Env.Types
|
| 29 | 28 | |
| 30 | 29 | import GHC.Rename.Env
|
| ... | ... | @@ -142,12 +141,8 @@ rnTypedBracket e br_body |
| 142 | 141 | ; recordThUse
|
| 143 | 142 | |
| 144 | 143 | ; traceRn "Renaming typed TH bracket" empty
|
| 145 | - ; (body'@(L loc b) , fvs_e) <- setThLevel (Brack cur_level RnPendingTyped) $ rnLExpr br_body
|
|
| 146 | - -- ; return (HsTypedBracket noExtField body', fvs_e)
|
|
| 147 | - ; mb_b <- tcExpand b
|
|
| 148 | - ; case mb_b of
|
|
| 149 | - Nothing -> return (HsTypedBracket noExtField body', fvs_e)
|
|
| 150 | - Just hse -> return (HsTypedBracket noExtField (L loc (XExpr (ExpandedThingRn hse))), fvs_e)
|
|
| 144 | + ; (body, fvs_e) <- setThLevel (Brack cur_level RnPendingTyped) $ rnLExpr br_body
|
|
| 145 | + ; return (HsTypedBracket noExtField body, fvs_e)
|
|
| 151 | 146 | }
|
| 152 | 147 | |
| 153 | 148 | rnUntypedBracket :: HsExpr GhcPs -> HsQuote GhcPs -> RnM (HsExpr GhcRn, FreeNames)
|
| 1 | -25 |
|
| \ No newline at end of file | ||
| 1 | +10 |