WIP: first steps

Author: ulysses4ever

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

@@ -407,14 +407,8 @@ 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
       ProjectConfigShared{projectConfigHcFlavor, projectConfigHcPath, projectConfigHcPkg, projectConfigIgnoreProject, projectConfigConfigFile} =
@@ -460,6 +454,37 @@ rebuildProjectConfig
             projectConfigBuildOnly
             pkgLocations
 
+      informAboutConfigFiles projectConfig =
+        unless (null configFiles) $
+          log (verboseStderr verbosity) . render $ message
+        where
+
+          log | allProjectFilesInCWD = info
+              | otherwise = notice
+            where
+              allProjectFilesInCWD = False -- TODO
+
+          message | length configFilesDoc > 2 = vcat $
+            text "Configuration is affected by the following files:" : configFilesDoc
+
+            | [path1, path2] <- configFilesDoc =
+              text "Configuration is affected by the files '" <+> path1 <+> text "' and '" <+> path2 <+> text "'"
+
+            | [path] <- configFilesDoc = mempty
+
+          configFilesDoc =
+              map (\path ->
+                     text "-" <+> docProjectConfigPath path)
+                configFiles
+
+          configFiles =
+            [ path
+            | Explicit path
+                <- Set.toList
+                . (if verbosity >= verbose then id else onlyTopLevelProvenance) $ projectConfigProvenance projectConfig
+            ]
+
+
 configureCompiler
   :: Verbosity
   -> DistDirLayout