diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-10-08 15:09:15 +0100 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2021-10-10 15:07:52 +0200 |
| commit | a356bd5673301e0d17088d278100cca94db8664f (patch) | |
| tree | f4446accd84db1b847b08f446094af1b52181193 /compiler | |
| parent | 31983ab4c65204ad0fd14aac4c00648f5fa6ad6b (diff) | |
| download | haskell-a356bd5673301e0d17088d278100cca94db8664f.tar.gz | |
driver: Fix assertion failure on self-import
Fixes #20459
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/GHC/Driver/Make.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/Make.hs b/compiler/GHC/Driver/Make.hs index 25887ee3d2..5f619484f2 100644 --- a/compiler/GHC/Driver/Make.hs +++ b/compiler/GHC/Driver/Make.hs @@ -468,7 +468,7 @@ createBuildPlan mod_graph maybe_top_mod = -- hs-boot files which are **not** part of cycles. collapseAcyclic :: [SCC ModuleGraphNode] -> [BuildPlan] collapseAcyclic (AcyclicSCC node : nodes) = SingleModule node : collapseAcyclic nodes - collapseAcyclic (CyclicSCC nodes : _) = [UnresolvedCycle nodes] + collapseAcyclic (CyclicSCC cy_nodes : nodes) = (UnresolvedCycle cy_nodes) : collapseAcyclic nodes collapseAcyclic [] = [] topSortWithBoot nodes = topSortModules False (select_boot_modules nodes ++ nodes) Nothing |