Make "stack setup" recover for GHCJS build #1874

2016-03-04 16:25:14 -08:00 · 2016-03-04 16:25:14 -08:00 · 2bf17fbc2e
commit 2bf17fbc2e
parent cb1ad6c762
1 changed files with 1 additions and 0 deletions
--- a/src/Stack/Setup.hs
+++ b/src/Stack/Setup.hs
@ -848,6 +848,7 @@ installGHCJS si archiveFile archiveType destDir = do
            $logDebug $ "ziptool: " <> T.pack zipTool
            $logDebug $ "tar: " <> T.pack tarTool
            return $ do
+                ignoringAbsence (removeDirRecur destDir)
                ignoringAbsence (removeDirRecur unpackDir)
                readInNull destDir tarTool menv ["xf", toFilePath archiveFile] Nothing
                innerDir <- expectSingleUnpackedDir archiveFile destDir