From 67eca1b6be8bac4971f55737df2b3ec4bff4d5c2 Mon Sep 17 00:00:00 2001
From: Oleg Grenrus <oleg.grenrus@iki.fi>
Date: Wed, 22 Jan 2020 11:18:51 +0200
Subject: [PATCH] Resolve #6479: Create distTempDirectory in withTempEnvFile

---
 cabal-install/Distribution/Client/CmdExec.hs | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/cabal-install/Distribution/Client/CmdExec.hs b/cabal-install/Distribution/Client/CmdExec.hs
index 7627d7d1114..183ae62f87d 100644
--- 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))