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 accept T18102b test diff - - - - - 2 changed files: - compiler/GHC/Rename/Splice.hs - testsuite/tests/th/T18102b.stdout Changes: ===================================== compiler/GHC/Rename/Splice.hs ===================================== @@ -24,7 +24,6 @@ import GHC.Hs import GHC.Types.Name.Reader import GHC.Tc.Errors.Types import GHC.Tc.Utils.Monad -import GHC.Tc.Gen.Expand import GHC.Driver.Env.Types import GHC.Rename.Env @@ -142,12 +141,8 @@ rnTypedBracket e br_body ; recordThUse ; traceRn "Renaming typed TH bracket" empty - ; (body'@(L loc b) , fvs_e) <- setThLevel (Brack cur_level RnPendingTyped) $ rnLExpr br_body - -- ; return (HsTypedBracket noExtField body', fvs_e) - ; mb_b <- tcExpand b - ; case mb_b of - Nothing -> return (HsTypedBracket noExtField body', fvs_e) - Just hse -> return (HsTypedBracket noExtField (L loc (XExpr (ExpandedThingRn hse))), fvs_e) + ; (body, fvs_e) <- setThLevel (Brack cur_level RnPendingTyped) $ rnLExpr br_body + ; return (HsTypedBracket noExtField body, fvs_e) } rnUntypedBracket :: HsExpr GhcPs -> HsQuote GhcPs -> RnM (HsExpr GhcRn, FreeNames) ===================================== testsuite/tests/th/T18102b.stdout ===================================== @@ -1 +1 @@ -25 \ No newline at end of file +10 View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/a8c875ee616a7541c8efb28dd62a112c... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/a8c875ee616a7541c8efb28dd62a112c... You're receiving this email because of your account on gitlab.haskell.org.