From 7e5ba38e116c7c55578d1f04067ce025a6225e65 Mon Sep 17 00:00:00 2001
From: Tim Dysinger <tim@dysinger.net>
Date: Tue, 5 Apr 2016 19:01:28 -0700
Subject: [PATCH] change the docker workdir

to $PROJECTROOT/.stack-docker

because `stack clean --full` tries to delete .stack-work/docker and it
can't because .stack-work/docker/_home is mounted by docker while it's
trying to delete it

resolves #2000
---
 src/Stack/Constants.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Stack/Constants.hs b/src/Stack/Constants.hs
index 0f5a9bcfe3..903f787849 100644
--- a/src/Stack/Constants.hs
+++ b/src/Stack/Constants.hs
@@ -272,8 +272,7 @@ projectDockerSandboxDir :: (MonadReader env m, HasConfig env)
   => Path Abs Dir      -- ^ Project root
   -> m (Path Abs Dir)  -- ^ Docker sandbox
 projectDockerSandboxDir projectRoot = do
-  workDir <- getWorkDir
-  return $ projectRoot </> workDir </> $(mkRelDir "docker/")
+  return $ projectRoot </> $(mkRelDir ".stack-docker/")
 
 -- | Image staging dir from project root.
 imageStagingDir :: (MonadReader env m, HasConfig env, MonadThrow m)