From 0d0fa31f4219531794627a571313c5b440e15f50 Mon Sep 17 00:00:00 2001 From: Phil de Joux Date: Thu, 14 Dec 2023 14:05:02 -0500 Subject: [PATCH] Replace where with view pattern --- cabal-install/src/Distribution/Client/ProjectConfig/Legacy.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/cabal-install/src/Distribution/Client/ProjectConfig/Legacy.hs b/cabal-install/src/Distribution/Client/ProjectConfig/Legacy.hs index cfc85520bc3..43455e0bce4 100644 --- a/cabal-install/src/Distribution/Client/ProjectConfig/Legacy.hs +++ b/cabal-install/src/Distribution/Client/ProjectConfig/Legacy.hs @@ -1184,14 +1184,12 @@ convertToLegacyPerPackageConfig PackageConfig{..} = -- parseLegacyProjectConfigFields :: ProjectConfigImport -> [ParseUtils.Field] -> ParseResult LegacyProjectConfig -parseLegacyProjectConfigFields pci = +parseLegacyProjectConfigFields (ConstraintSourceProjectConfig -> constraintSrc) = parseFieldsAndSections (legacyProjectConfigFieldDescrs constraintSrc) legacyPackageConfigSectionDescrs legacyPackageConfigFGSectionDescrs mempty - where - constraintSrc = ConstraintSourceProjectConfig pci parseLegacyProjectConfig :: FilePath -> BS.ByteString -> ParseResult LegacyProjectConfig parseLegacyProjectConfig source bs = parseLegacyProjectConfigFields (ProjectConfigImport 0 source) =<< ParseUtils.readFields bs