Clear index cache whenever index updated #1962

commercialhaskell · Mar 30, 2016 · 1c89cb5 · 1c89cb5
1 parent e3d7f59
commit 1c89cb5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/src/Stack/Fetch.hs b/src/Stack/Fetch.hs
@@ -307,7 +307,6 @@ withCabalLoader menv inner = do
                                     , "Updating and trying again."
                                     ]
                                 updateAllIndices menv
-                                clearPackageCaches
                                 caches <- getPackageCaches
                                 liftIO $ writeIORef icaches caches
                             return (False, doLookup ident)

diff --git a/src/Stack/PackageIndex.hs b/src/Stack/PackageIndex.hs
@@ -20,7 +20,6 @@ module Stack.PackageIndex
     ( updateAllIndices
     , getPackageCaches
     , getPackageVersions
-    , clearPackageCaches
     ) where
 
 import qualified Codec.Archive.Tar as Tar
@@ -200,7 +199,8 @@ updateAllIndices
        ,HasConfig env,MonadBaseControl IO m, MonadCatch m)
     => EnvOverride
     -> m ()
-updateAllIndices menv =
+updateAllIndices menv = do
+    clearPackageCaches
     asks (configPackageIndices . getConfig) >>= mapM_ (updateIndex menv)
 
 -- | Update the index tarball