From 7a447d52801872933679357feebb51b17173a58d Mon Sep 17 00:00:00 2001 From: Phil de Joux Date: Sun, 31 Dec 2023 09:12:07 -0500 Subject: [PATCH] Add haddocks to project parsing functions - parseProject - parseProjectSkeleton --- cabal-install/src/Distribution/Client/ProjectConfig/Legacy.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/cabal-install/src/Distribution/Client/ProjectConfig/Legacy.hs b/cabal-install/src/Distribution/Client/ProjectConfig/Legacy.hs index 8e8baa78207..d8e075fc112 100644 --- a/cabal-install/src/Distribution/Client/ProjectConfig/Legacy.hs +++ b/cabal-install/src/Distribution/Client/ProjectConfig/Legacy.hs @@ -228,9 +228,11 @@ instantiateProjectConfigSkeletonWithCompiler os arch impl _flags skel = go $ map projectSkeletonImports :: ProjectConfigSkeleton -> [ProjectConfigPath] projectSkeletonImports = view traverseCondTreeC +-- | Parses a project from its root config file, typically cabal.project. parseProject :: RootConfig -> FilePath -> HttpTransport -> Verbosity -> [ProjectConfigPath] -> ProjectConfigToParse -> IO (ParseResult ProjectConfigSkeleton) parseProject (RootConfig root) = parseProjectSkeleton [] (Importee root) +-- | Parses project configuration recursively, following imports. parseProjectSkeleton :: [Importer] -> Importee -> FilePath -> HttpTransport -> Verbosity -> [ProjectConfigPath] -> ProjectConfigToParse -> IO (ParseResult ProjectConfigSkeleton) parseProjectSkeleton srcImporters srcImportee cacheDir httpTransport verbosity seenImports (ProjectConfigToParse bs) = (sanityWalkPCS False =<<) <$> liftPR (go srcImporters srcImportee []) (ParseUtils.readFields bs)