Merge pull request #6501 from phadej/issue-6479-tmp-in-exec

Resolve #6479: Create distTempDirectory in withTempEnvFile
haskell · Jan 22, 2020 · d02655b · d02655b
2 parents f437d94 + 67eca1b
commit d02655b
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/cabal-install/Distribution/Client/CmdExec.hs b/cabal-install/Distribution/Client/CmdExec.hs
@@ -82,6 +82,7 @@ import Distribution.Simple.Setup
 import Distribution.Simple.Utils
   ( die'
   , info
+  , createDirectoryIfMissingVerbose
   , withTempDirectory
   , wrapText
   )
@@ -223,11 +224,8 @@ withTempEnvFile :: Verbosity
                 -> PostBuildProjectStatus
                 -> ([(String, Maybe String)] -> IO a)
                 -> IO a
-withTempEnvFile verbosity
-                baseCtx
-                buildCtx
-                buildStatus
-                action =
+withTempEnvFile verbosity baseCtx buildCtx buildStatus action = do
+  createDirectoryIfMissingVerbose verbosity True (distTempDirectory (distDirLayout baseCtx))
   withTempDirectory
    verbosity
    (distTempDirectory (distDirLayout baseCtx))