Matthew Pickering pushed to branch wip/hpc-interpreter at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/StgToByteCode.hs
    ... ... @@ -2776,7 +2776,7 @@ tickFS = fsLit "ticked"
    2776 2776
     
    
    2777 2777
     mkHpcTickLabel :: Platform -> Module -> FastString
    
    2778 2778
     mkHpcTickLabel platform mod =
    
    2779
    -  fsLit (showSDocOneLine defaultSDocContext (pprCLabel platform (mkHpcTicksLabel mod)))
    
    2779
    +  fsLit (showSDocOneLine defaultSDocContext (pprCode (pprCLabel platform (mkHpcTicksLabel mod))))
    
    2780 2780
     
    
    2781 2781
     -- Dehydrating CgBreakInfo
    
    2782 2782