Skip to content
Snippets Groups Projects
Commit 03851b64 authored by Rodrigo Mesquita's avatar Rodrigo Mesquita :seedling: Committed by Marge Bot
Browse files

mg: Drop unnecessary HasCallStack

This HasCallStack was a debugging artifact from a previous commit.
parent f98b3ac0
No related branches found
No related tags found
No related merge requests found
......@@ -74,7 +74,6 @@ import Data.Bifunctor
import Data.Function
import Data.List (sort)
import GHC.Data.List.SetOps
import GHC.Stack
-- | A '@ModuleGraphNode@' is a node in the '@ModuleGraph@'.
-- Edges between nodes mark dependencies arising from module imports
......@@ -410,7 +409,7 @@ moduleGraphModulesBelow mg uid mn = filtered_mods [ mn | NodeKey_Module mn <- mo
| otherwise -> r1 : filter_mods (r2:rs)
rs -> rs
mgReachable :: HasCallStack => ModuleGraph -> NodeKey -> Maybe [ModuleGraphNode]
mgReachable :: ModuleGraph -> NodeKey -> Maybe [ModuleGraphNode]
mgReachable mg nk = map summaryNodeSummary <$> modules_below where
(td_map, lookup_node) = mg_graph mg
modules_below =
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment