Merge pull request #226 from haskell-works/newhoggy/restore-recache-p…

…ackage-database-step-in-sync-from-archive Restore recache package database step in sync-from-archive
haskell · Feb 4, 2023 · 7198cf3 · 7198cf3
2 parents 2d26d33 + 9e85bad
commit 7198cf3
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