[Git][ghc/ghc][wip/romes/graph-compact-easy] fixup! Refactor.

[Rodrigo Mesquita (@alt-romes)]

Rodrigo Mesquita pushed to branch wip/romes/graph-compact-easy at Glasgow Haskell Compiler / GHC


Commits:
1d75365a by Rodrigo Mesquita at 2024-11-20T11:53:29+00:00
fixup! Refactor.

- - - - -


1 changed file:

- compiler/GHC/Data/Graph/Directed/Reachability.hs


Changes:

=====================================
compiler/GHC/Data/Graph/Directed/Reachability.hs
=====================================
@@ -163,6 +163,6 @@ isReachableMany (ReachabilityIndex index _ to) roots b =
     IS.member b_i $
     IS.unions $
     map (expectJust "reachablesQuery" . flip IM.lookup index) roots_i
-  where roots_i = map (expectJust "reachablesQuery:node not in graph" . to) roots
+  where roots_i = [ v | Just v <- map to roots ]
         b_i = expectJust "reachablesQuery:node not in graph" $ to b
 



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/1d75365aaca6eef9de39d5f3cc6e7e682315f7aa
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/20241120/be00e502/attachment.html>