Add ProjectConfigBuildOnly FieldGrammar draft

Author: jgotoh

cabal-install/src/Distribution/Client/ProjectConfig.hs

@@ -15,6 +15,7 @@ module Distribution.Client.ProjectConfig (
 
     -- * Types for project config
     ProjectConfig(..),
+    ProjectConfigSkeleton,
     ProjectConfigBuildOnly(..),
     ProjectConfigShared(..),
     ProjectConfigProvenance(..),

cabal-install/src/Distribution/Client/ProjectConfig/FieldGrammar.hs

@@ -5,19 +5,22 @@ module Distribution.Client.ProjectConfig.FieldGrammar (
   ) where
 
 import Distribution.Compat.Prelude
-import Distribution.Client.ProjectConfig.Legacy (ProjectConfigSkeleton)
 import qualified Distribution.Client.ProjectConfig.Lens as L
-import Distribution.Client.ProjectConfig.Types (ProjectConfig (..))
+import Distribution.Client.ProjectConfig.Types (ProjectConfig (..), ProjectConfigBuildOnly (..))
 import Distribution.FieldGrammar
+import Distribution.Simple.Flag
 import Distribution.Types.PackageVersionConstraint (PackageVersionConstraint (..))
+import Distribution.Verbosity
+import Distribution.Client.Utils.Parsec
+
 
 projectConfigFieldGrammar :: ParsecFieldGrammar' ProjectConfig
 projectConfigFieldGrammar = ProjectConfig
   <$> monoidalFieldAla    "packages"            (alaList' FSep Token')      L.projectPackages
   <*> monoidalFieldAla    "optional-packages"   (alaList' FSep Token')      L.projectPackagesOptional
   <*> pure mempty -- source-repository-package stanza
   <*> monoidalFieldAla    "extra-packages"      formatPackagesNamedList     L.projectPackagesNamed
-  <*> pure mempty
+  <*> blurFieldGrammar L.projectConfigBuildOnly projectConfigBuildOnlyFieldGrammar
   <*> pure mempty
   <*> pure mempty
   <*> pure mempty
@@ -27,3 +30,24 @@ projectConfigFieldGrammar = ProjectConfig
 formatPackagesNamedList :: [PackageVersionConstraint] -> List CommaVCat (Identity PackageVersionConstraint) PackageVersionConstraint
 formatPackagesNamedList = alaList CommaVCat
 
+projectConfigBuildOnlyFieldGrammar :: ParsecFieldGrammar' ProjectConfigBuildOnly
+projectConfigBuildOnlyFieldGrammar = ProjectConfigBuildOnly
+  <$> optionalFieldDef "verbose" L.projectConfigVerbosity (pure normal)
+  <*> pure (toFlag False) -- cli flag: projectConfigDryRun
+  <*> pure (toFlag False) -- cli flag: projectConfigOnlyDeps
+  <*> pure (toFlag False) -- cli flag: projectConfigOnlyDownload
+  <*> monoidalFieldAla "build-summary" (alaNubList VCat) L.projectConfigSummaryFile
+  <*> undefined
+  <*> undefined
+  <*> undefined
+  <*> undefined
+  <*> undefined
+  <*> undefined
+  <*> undefined
+  <*> undefined
+  <*> undefined
+  <*> undefined
+  <*> undefined
+  <*> undefined
+  <*> undefined
+

cabal-install/src/Distribution/Client/ProjectConfig/Legacy.hs

@@ -11,6 +11,7 @@ module Distribution.Client.ProjectConfig.Legacy (
     instantiateProjectConfigSkeletonWithCompiler,
     singletonProjectConfigSkeleton,
     projectSkeletonImports,
+    ProjectConfigImport,
 
     -- * Project config in terms of legacy types
     LegacyProjectConfig,