From 0347cd15c3fbb818e0877e0b267d0af4d121f66d Mon Sep 17 00:00:00 2001
From: Michael Sloan <mgsloan@gmail.com>
Date: Wed, 27 Jan 2016 00:02:25 -0800
Subject: [PATCH] Redownload build plan if parsing fails #1702

---
 src/Stack/BuildPlan.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Stack/BuildPlan.hs b/src/Stack/BuildPlan.hs
index a8505ec71c..7617ce03b2 100644
--- 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