Merge pull request #440 from ocaml/retry-system-package-installations

Update the package index if the system package installation fails

Author: smorimoto

CHANGELOG.md

@@ -8,6 +8,10 @@ and this project adheres to
 
 ## [unreleased]
 
+### Changed
+
+- Update the package index if the system package installation fails.
+
 ## [2.0.0]
 
 ### Changed

dist/index.js

@@ -95,7 +95,7 @@ async function acquireOpamUnix() {
   }
 }
 
-async function initializeOpamUnix() {
+async function installUnixSystemPackages() {
   const isGitHubRunner = process.env.ImageOS !== undefined;
   const platform = getPlatform();
   if (isGitHubRunner) {
@@ -120,6 +120,30 @@ async function initializeOpamUnix() {
       await exec("brew", ["install", "darcs", "gpatch", "mercurial"]);
     }
   }
+}
+
+async function updateUnixPackageIndexFiles() {
+  const isGitHubRunner = process.env.ImageOS !== undefined;
+  const platform = getPlatform();
+  if (isGitHubRunner) {
+    if (platform === Platform.Linux) {
+      await exec("sudo", ["apt-get", "update"]);
+    } else if (platform === Platform.MacOS) {
+      await exec("brew", ["update"]);
+    }
+  }
+}
+
+async function initializeOpamUnix() {
+  try {
+    await installUnixSystemPackages();
+  } catch (error) {
+    if (error instanceof Error) {
+      core.info(error.message);
+    }
+    await updateUnixPackageIndexFiles();
+    await installUnixSystemPackages();
+  }
   const disableSandboxing = [];
   if (OPAM_DISABLE_SANDBOXING) {
     disableSandboxing.push("--disable-sandboxing");