Simon Peyton Jones pushed to branch wip/T27737 at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Core/Opt/Simplify/Utils.hs
    ... ... @@ -646,7 +646,7 @@ splitContArgs cont@(CastIt { sc_cont = cont1 })
    646 646
            ; return (cont { sc_cont = inner }, outer) }
    
    647 647
     splitContArgs outer
    
    648 648
       | contIsStop outer = Nothing
    
    649
    -  | otherwise        = pprTrace "splitContHoleType" (ppr hole_ty) $
    
    649
    +  | otherwise        = -- pprTrace "splitContHoleType" (ppr hole_ty) $
    
    650 650
                            return (mkBoringStop hole_ty, outer)
    
    651 651
       where
    
    652 652
         hole_ty = contHoleType outer