Show project msg when loading build config #2030

commercialhaskell · Apr 13, 2016 · 1ff3a7e · 1ff3a7e · mgsloan · Apr 13, 2016
1 parent c5ad629
commit 1ff3a7e
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/src/Stack/Config.hs b/src/Stack/Config.hs
@@ -402,10 +402,6 @@ loadConfig configArgs mstackYaml mresolver = do
                 extraConfigs0
     mproject <- loadProjectConfig mstackYaml
 
-    let printUserMessage (p, _, _) =
-         maybe (return ()) ($logWarn . T.pack) (projectUserMsg p)
-    maybe (return ()) printUserMessage mproject
-
     let mproject' = (\(project, stackYaml, _) -> (project, stackYaml)) <$> mproject
     config <- configFromConfigMonoid stackRoot userConfigPath mresolver mproject' $ mconcat $
         case mproject of
@@ -440,7 +436,9 @@ loadBuildConfig mproject config mresolver mcompiler = do
     miniConfig <- loadMiniConfig config
 
     (project', stackYamlFP) <- case mproject of
-      Just (project, fp, _) -> return (project, fp)
+      Just (project, fp, _) -> do
+          forM_ (projectUserMsg project) ($logWarn . T.pack)
+          return (project, fp)
       Nothing -> do
             $logInfo "Run from outside a project, using implicit global project config"
             destDir <- getImplicitGlobalProjectDir config