Include the location when extracting GHC tarball

Ref commercialhaskell#841
bixuanzju · Sep 6, 2015 · 1eae681 · 1eae681
1 parent 915630c
commit 1eae681
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Stack/Setup.hs b/src/Stack/Setup.hs
@@ -763,7 +763,7 @@ installGHCPosix _ archiveFile archiveType destDir ident = do
         root <- parseAbsDir root'
         dir <- liftM (root Path.</>) $ parseRelDir $ packageIdentifierString ident
 
-        $logSticky $ "Unpacking GHC ..."
+        $logSticky $ T.concat ["Unpacking GHC into ", (T.pack . toFilePath $ root), " ..."]
         $logDebug $ "Unpacking " <> T.pack (toFilePath archiveFile)
         readInNull root tarTool menv ["xf", toFilePath archiveFile] Nothing