[Git][ghc/ghc][wip/pluginExtFields] Fix cost centre position

Josh Meredith gitlab at gitlab.haskell.org
Sun Jul 5 16:33:50 UTC 2020



Josh Meredith pushed to branch wip/pluginExtFields at Glasgow Haskell Compiler / GHC


Commits:
cb00fc3a by Josh Meredith at 2020-07-06T02:33:08+10:00
Fix cost centre position

- - - - -


1 changed file:

- compiler/GHC/Driver/Main.hs


Changes:

=====================================
compiler/GHC/Driver/Main.hs
=====================================
@@ -811,11 +811,10 @@ finish summary tc_result mb_old_hash = do
           (cg_guts, details) <- {-# SCC "CoreTidy" #-}
               liftIO $ tidyProgram hsc_env simplified_guts
 
-          !partial_iface <- liftIO $
-                {-# SCC "GHC.Driver.Main.mkPartialIface" #-}
+          !partial_iface <- {-# SCC "GHC.Driver.Main.mkPartialIface" #-}
                 -- This `force` saves 2M residency in test T10370
                 -- See Note [Avoiding space leaks in toIface*] for details.
-                force <$> (mkPartialIface hsc_env details simplified_guts)
+                liftIO $ force <$> (mkPartialIface hsc_env details simplified_guts)
 
           return HscRecomp { hscs_guts = cg_guts,
                              hscs_mod_location = ms_location summary,



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/cb00fc3a5750a61dc8bdaa9e6bb58442c2343236

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/cb00fc3a5750a61dc8bdaa9e6bb58442c2343236
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20200705/0bf6acca/attachment.html>


More information about the ghc-commits mailing list