Simon Peyton Jones pushed to branch wip/spj-try-opt-coercion at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Core/Coercion/Opt.hs
    ... ... @@ -174,8 +174,8 @@ optCoercion :: OptCoercionOpts -> Subst -> Coercion -> NormalCo
    174 174
     --   *and* optimises it to reduce its size
    
    175 175
     optCoercion opts env co
    
    176 176
     -- Experiment with no optCoercion at all
    
    177
    ---  | optCoercionEnabled opts
    
    178
    ---  = optCoercion' env co
    
    177
    +  | False -- optCoercionEnabled opts
    
    178
    +  = optCoercion' env co
    
    179 179
     
    
    180 180
     {-
    
    181 181
       = pprTrace "optCoercion {" (text "Co:" <> ppr co) $