Simon Peyton Jones pushed to branch wip/T26349 at Glasgow Haskell Compiler / GHC Commits: 75b31aca by Simon Peyton Jones at 2025-10-23T23:04:43+01:00 Remove silly trace - - - - - 1 changed file: - compiler/GHC/Tc/Types/Evidence.hs Changes: ===================================== compiler/GHC/Tc/Types/Evidence.hs ===================================== @@ -362,9 +362,10 @@ collectHsWrapBinders wrap = go wrap [] optHsWrapper :: HsWrapper -> HsWrapper optHsWrapper wrap - = let wrap' = foldr (<.>) WpHole (norm wrap []) - in pprTrace "optHsWrapper" (vcat [ text "in:" <+> ppr wrap, text "out:" <+> ppr wrap' ]) $ - wrap' + = foldr (<.>) WpHole (norm wrap []) + -- let wrap' = foldr (<.>) WpHole (norm wrap []) + -- in pprTrace "optHsWrapper" (vcat [ text "in:" <+> ppr wrap, text "out:" <+> ppr wrap' ]) $ + -- wrap' where norm :: HsWrapper -> [HsWrapper] -> [HsWrapper] -- norm w ws = w <.> (foldr <.> WpHole ws) View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/75b31aca456a5a10e862c335042c96ba... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/75b31aca456a5a10e862c335042c96ba... You're receiving this email because of your account on gitlab.haskell.org.