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