Add tests for lockfile

purescript · Dec 10, 2023 · 9672eba · 9672eba
1 parent df9510a
commit 9672eba
Show file tree

Hide file tree

Showing 5 changed files with 990 additions and 3 deletions.
diff --git a/src/Spago/Registry.purs b/src/Spago/Registry.purs
@@ -139,7 +139,9 @@ shouldFetchRegistryRepos db = do
       let staleAfter = Minutes 15.0
       let (timeDiff :: Minutes) = DateTime.diff now lastRegistryFetch
       let isOldEnough = timeDiff > staleAfter
-      if isOldEnough then do
+      -- We check if it's old, but also if we have it at all
+      registryExists <- FS.exists Paths.registryPath
+      if isOldEnough || not registryExists then do
         logDebug "Registry is old, refreshing"
         liftEffect $ Db.updateLastPull db registryKey now
         pure true