WIP: first steps

Author: ulysses4ever

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

@@ -407,13 +407,7 @@ rebuildProjectConfig
           localPackages <- phaseReadLocalPackages compiler (projectConfig <> cliConfig)
           return (projectConfig, localPackages)
 
-    let configfiles =
-          [ text "-" <+> docProjectConfigPath path
-          | Explicit path <- Set.toList . (if verbosity >= verbose then id else onlyTopLevelProvenance) $ projectConfigProvenance projectConfig
-          ]
-    unless (null configfiles) $
-      notice (verboseStderr verbosity) . render . vcat $
-        text "Configuration is affected by the following files:" : configfiles
+    informAboutConfigFiles projectConfig
 
     return (projectConfig <> cliConfig, localPackages)
     where
@@ -460,6 +454,42 @@ rebuildProjectConfig
             projectConfigBuildOnly
             pkgLocations
 
+      informAboutConfigFiles projectConfig =
+        unless (null configFiles) .
+          out (verboseStderr verbosity) . render $
+            message
+        where
+          -- output mode is either 'notice' or 'info' depending on how trivial the information
+          out
+            | allProjectFilesInCWD = info
+            | otherwise = notice
+            where
+              allProjectFilesInCWD = False -- TODO
+          message = case configFilesDoc of -- formatting depends on |config files| (the number of config files)
+            (_ : _ : _ : _) ->
+              vcat $
+                -- \|config files| > 2 => vertical list
+                text "Configuration is affected by the following files:" : configFilesVertList
+            [path1, path2] ->
+              text "Configuration is affected by '" <+> path1 <+> text "' and '" <+> path2 <+> text "'"
+            [path] ->
+              mempty -- TODO
+                text
+                "Configuration is affected by '"
+                <+> path
+                <+> text "'"
+            where
+              configFilesDoc = docProjectConfigFiles configFiles
+              configFilesVertList = map (text "-" <+>) configFilesDoc
+
+          configFiles =
+            [ path
+            | Explicit path <-
+                Set.toList
+                  . (if verbosity >= verbose then id else onlyTopLevelProvenance)
+                  $ projectConfigProvenance projectConfig
+            ]
+
 configureCompiler
   :: Verbosity
   -> DistDirLayout