Restore recache package database step in sync-from-archive

haskell · Feb 4, 2023 · 9e85bad · 9e85bad
1 parent 2d26d33
commit 9e85bad
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/app/App/Commands/SyncFromArchive.hs b/app/App/Commands/SyncFromArchive.hs
@@ -226,6 +226,14 @@ runSyncFromArchive opts = OO.runOops $ OO.catchAndExitFailure @ExitFailure do
 
             DQ.succeed
 
+    CIO.putStrLn "Recaching package database"
+
+    liftIO $ GhcPkg.recache compilerContext storeCompilerPackageDbPath
+
+    failures <- liftIO $ STM.atomically $ STM.readTVar $ downloadQueue ^. the @"tFailures"
+
+    forM_ failures $ \packageId -> CIO.hPutStrLn IO.stderr $ "Failed to download: " <> packageId
+
 ensureStorePathCleanup :: ()
   => MonadIO m
   => MonadCatch m