Andreas Klebinger pushed to branch wip/andreask/spec_tyfams at Glasgow Haskell Compiler / GHC
Commits:
-
701de524
by Andreas Klebinger at 2025-04-26T12:47:50+02:00
1 changed file:
Changes:
| ... | ... | @@ -68,6 +68,7 @@ import Data.List.NonEmpty ( NonEmpty (..) ) |
| 68 | 68 | import GHC.Core.Subst (substTickish)
|
| 69 | 69 | import GHC.Core.TyCon (tyConClass_maybe)
|
| 70 | 70 | import GHC.Core.DataCon (dataConTyCon)
|
| 71 | +import Control.Monad
|
|
| 71 | 72 | |
| 72 | 73 | {-
|
| 73 | 74 | ************************************************************************
|
| ... | ... | @@ -1704,7 +1705,7 @@ specCalls spec_imp env existing_rules calls_for_me fn rhs |
| 1704 | 1705 | , rule_bndrs, rule_lhs_args
|
| 1705 | 1706 | , spec_bndrs1, dx_binds, spec_args) <- specHeader env rhs_bndrs all_call_args
|
| 1706 | 1707 | |
| 1707 | - ; pprTrace "spec_call" (vcat
|
|
| 1708 | + ; when False $ pprTrace "spec_call" (vcat
|
|
| 1708 | 1709 | [ text "fun: " <+> ppr fn
|
| 1709 | 1710 | , text "call info: " <+> ppr _ci
|
| 1710 | 1711 | , text "useful: " <+> ppr useful
|