mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Avoid loading cluster log at startup

Browse source 
This fixes a problem with datalad's test suite, where loading the cluster
log happened to cause the git-annex branch commits to take a different
shape, with an additional commit.

It's also faster though, since many commands don't need the cluster log.

Just fill Annex.clusters with a thunk.

Sponsored-by: the NIH-funded NICEMAN (ReproNim TR&D3) project
This commit is contained in:
Joey Hess 2024-07-31 15:54:14 -04:00
parent 7c6c3e703b
commit 3a1f39fbdf
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
7 changed files with 30 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Logs/Location.hs
View file

@ -252,4 +252,4 @@ overLocationLogs' iv discarder keyaction = do
-- Cannot import Logs.Cluster due to a cycle.
-- Annex.clusters gets populated when starting up git-annex.
getClusters :: Annex Clusters
getClusters = fromMaybe noClusters <$> Annex.getState Annex.clusters
getClusters = maybe (pure noClusters) id =<< Annex.getState Annex.clusters