From 22b700b0099a021f03e2566f24e503497fa35245 Mon Sep 17 00:00:00 2001
From: Andrea Bedini <andrea@andreabedini.com>
Date: Wed, 23 Feb 2022 11:41:02 +0800
Subject: [PATCH] Remove overlapping patterns
These two `otherwise`s have been dead code since about 2016 but GHC has
started warning about them only since 9.2.
---
cabal-install/src/Distribution/Client/ProjectPlanning.hs | 5 -----
1 file changed, 5 deletions(-)
diff --git a/cabal-install/src/Distribution/Client/ProjectPlanning.hs b/cabal-install/src/Distribution/Client/ProjectPlanning.hs
index 19ae76f4e5..10f0120fc9 100644
--- a/cabal-install/src/Distribution/Client/ProjectPlanning.hs
+++ b/cabal-install/src/Distribution/Client/ProjectPlanning.hs
@@ -1734,10 +1734,6 @@ elaborateInstallPlan verbosity platform compiler compilerprogdb pkgConfigDB
elaboratedSharedConfig
elab) -- recursive use of elab
- | otherwise
- = error $ "elaborateInstallPlan: non-inplace package "
- ++ " is missing a source hash: " ++ prettyShow pkgid
-
-- Need to filter out internal dependencies, because they don't
-- correspond to anything real anymore.
isExt confid = confSrcId confid /= pkgid
@@ -3495,7 +3491,6 @@ setupHsConfigureFlags (ReadyPackage elab@ElaboratedConfiguredPackage{..})
= Map.toList $
Map.insertWith (++) "ghc" ["-hide-all-packages"]
elabProgramArgs
- | otherwise = Map.toList elabProgramArgs
configProgramPathExtra = toNubList elabProgramPathExtra
configHcFlavor = toFlag (compilerFlavor pkgConfigCompiler)
configHcPath = mempty -- we use configProgramPaths instead
--
GitLab