Redownload build plan if parsing fails #1702

commercialhaskell · Jan 27, 2016 · 0347cd1 · 0347cd1
1 parent 93d85ff
commit 0347cd1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Stack/BuildPlan.hs b/src/Stack/BuildPlan.hs
@@ -452,7 +452,7 @@ loadBuildPlan name = do
             req <- parseUrl $ T.unpack url
             $logSticky $ "Downloading " <> renderSnapName name <> " build plan ..."
             $logDebug $ "Downloading build plan from: " <> url
-            _ <- download req { checkStatus = handle404 } fp
+            _ <- redownload req { checkStatus = handle404 } fp
             $logStickyDone $ "Downloaded " <> renderSnapName name <> " build plan."
             liftIO (decodeFileEither $ toFilePath fp) >>= either throwM return