From 22b700b0099a021f03e2566f24e503497fa35245 Mon Sep 17 00:00:00 2001 From: Andrea Bedini 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 19ae76f4e59..10f0120fc92 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