Replace where with view pattern

haskell · Dec 15, 2023 · 46f9a08 · 46f9a08
1 parent 2064c79
commit 46f9a08
Showing 1 changed file with 1 addition and 3 deletions.
diff --git 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