[Git][ghc/ghc][wip/splice-imports-2024] Remove traces

[Matthew Pickering (@mpickering)]

Matthew Pickering pushed to branch wip/splice-imports-2024 at Glasgow Haskell Compiler / GHC


Commits:
ce8950bc by Matthew Pickering at 2024-11-06T10:49:40+00:00
Remove traces

- - - - -


1 changed file:

- compiler/GHC/Driver/Make.hs


Changes:

=====================================
compiler/GHC/Driver/Make.hs
=====================================
@@ -2033,10 +2033,10 @@ enableCodeGenWhen logger tmpfs staticLife dynLife unit_env unit_state mod_graph
 
     (mg, lookup_node) = moduleGraphNodesZero unit_state mod_graph
 
-    mk_needed_set roots = Set.fromList $ map fst $ pprTraceIt "mk_needed_set" $ lefts $ map node_payload $ reachablesG2 mg (map (expectJust "needs_th" . lookup_node) (map Left roots))
+    mk_needed_set roots = Set.fromList $ map fst $ lefts $ map node_payload $ reachablesG2 mg (map (expectJust "needs_th" . lookup_node) (map Left roots))
 
     needs_obj_set, needs_bc_set :: Set.Set ModNodeKeyWithUid
-    needs_obj_set = pprTraceIt "res_needs_obj_set" $ mk_needed_set (pprTraceIt "needs_obj_set" need_obj_set)
+    needs_obj_set = mk_needed_set need_obj_set
 
     needs_bc_set = mk_needed_set need_bc_set
 



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/ce8950bc98b5bcde029664c503a55deeec3abe01
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/20241106/75c32313/attachment.html>