Delete unpacked upstream pkg when done building #3018

commercialhaskell · Mar 10, 2017 · d3a10bf · d3a10bf
1 parent 5c9ca3c
commit d3a10bf
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/Stack/Build/Execute.hs b/src/Stack/Build/Execute.hs
@@ -1388,6 +1388,15 @@ singleBuild runInBase ac@ActionContext {..} ee@ExecuteEnv {..} task@Task {..} in
                 mpkgid (packageExes package)
             Local -> return ()
 
+        case taskType of
+            -- For upstream packages, pkgDir is in the tmp directory. We
+            -- eagerly delete it if no other tasks require it, to reduce
+            -- space usage in tmp (#3018).
+            TTUpstream{} -> do
+                let remaining = filter (\(ActionId x _) -> x == taskProvides) (Set.toList acRemaining)
+                when (null remaining) $ removeDirRecur pkgDir
+            _ -> return ()
+
         return mpkgid
 
     loadInstalledPkg menv wc pkgDbs tvar name = do