Make "stack setup" recover for GHCJS build commercialhaskell#1874

mgsloan · mgsloan · commit 2bf17fbc2e84 · 2016-03-04T16:33:52.000-08:00
diff --git 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
