From 5d35566c68188ad30edb2e9113de4fc83798d4ea Mon Sep 17 00:00:00 2001 From: Mikhail Glushenkov <mikhail.glushenkov@gmail.com> Date: Fri, 30 Aug 2013 13:43:52 +0200 Subject: [PATCH] Improve the message printed by 'sandbox init'. --- cabal-install/Distribution/Client/Sandbox.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/cabal-install/Distribution/Client/Sandbox.hs b/cabal-install/Distribution/Client/Sandbox.hs index 5e5e916dac..6a8854bcde 100644 --- a/cabal-install/Distribution/Client/Sandbox.hs +++ b/cabal-install/Distribution/Client/Sandbox.hs @@ -290,7 +290,6 @@ sandboxInit verbosity sandboxFlags globalFlags = do createDirectoryIfMissingVerbose verbosity True sandboxDir' sandboxDir <- tryCanonicalizePath sandboxDir' setFileHidden sandboxDir - notice verbosity $ "Using a sandbox located at " ++ sandboxDir -- Determine which compiler to use (using the value from ~/.cabal/config). userConfig <- loadConfig verbosity (globalConfigFile globalFlags) NoFlag @@ -304,6 +303,10 @@ sandboxInit verbosity sandboxFlags globalFlags = do -- Create the index file if it doesn't exist. indexFile <- tryGetIndexFilePath (pkgEnvSavedConfig pkgEnv) + indexFileExists <- doesFileExist indexFile + if indexFileExists + then notice verbosity $ "Using an existing sandbox located at " ++ sandboxDir + else notice verbosity $ "Creating a new sandbox at " ++ sandboxDir Index.createEmpty verbosity indexFile -- We don't create the package DB for the default compiler here: it's created -- GitLab