don't print anything when provenance is empty

haskell · Nov 12, 2024 · f96907b · f96907b
1 parent 3135148
commit f96907b
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 5 deletions.
diff --git a/cabal-install/src/Distribution/Client/ProjectConfig.hs b/cabal-install/src/Distribution/Client/ProjectConfig.hs
@@ -38,6 +38,7 @@ module Distribution.Client.ProjectConfig
   , writeProjectConfigFile
   , commandLineFlagsToProjectConfig
   , onlyTopLevelProvenance
+  , noProjectConfigProvenance
 
     -- * Packages within projects
   , ProjectPackageLocation (..)
@@ -1760,3 +1761,7 @@ onlyTopLevelProvenance :: Set ProjectConfigProvenance -> Set ProjectConfigProven
 onlyTopLevelProvenance = Set.filter $ \case
   Implicit -> False
   Explicit ps -> isTopLevelConfigPath ps
+
+-- | No explicit project config was found
+noProjectConfigProvenance :: ProjectConfig -> Bool
+noProjectConfigProvenance (ProjectConfig{projectConfigProvenance = prov}) = Set.null prov
diff --git a/cabal-install/src/Distribution/Client/ProjectPlanning.hs b/cabal-install/src/Distribution/Client/ProjectPlanning.hs
@@ -398,11 +398,12 @@ rebuildProjectConfig
           localPackages <- phaseReadLocalPackages (projectConfig <> cliConfig)
           return (projectConfig, localPackages)
 
-    notice (verboseStderr verbosity) . render . vcat $
-      text "Configuration is affected by the following files:"
-        : [ text "-" <+> docProjectConfigPath path
-          | Explicit path <- Set.toList . (if verbosity >= verbose then id else onlyTopLevelProvenance) $ projectConfigProvenance projectConfig
-          ]
+    unless (noProjectConfigProvenance projectConfig) $
+      notice (verboseStderr verbosity) . render . vcat $
+        text "Configuration is affected by the following files:"
+          : [ text "-" <+> docProjectConfigPath path
+            | Explicit path <- Set.toList . (if verbosity >= verbose then id else onlyTopLevelProvenance) $ projectConfigProvenance projectConfig
+            ]
 
     return (projectConfig <> cliConfig, localPackages)
     where