set descriptions for all simulated repos

This commit is contained in:
Joey Hess 2024-09-09 11:06:42 -04:00
parent ec7f1f2736
commit 5f3a2f4c6b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -30,6 +30,7 @@ import Logs.NumCopies
import Logs.Remote
import Logs.MaxSize
import Logs.Difference
import Logs.UUID
import qualified Annex
import qualified Remote
import qualified Git.Construct
@ -482,7 +483,7 @@ cloneSimRepo simreponame u parent dest st = do
-- avoids checkSharedClone enabling the shared clone
-- setting, which is not wanted here.
recordDifferences simulationDifferences u
let desc = "simulated repository " ++ fromRepoName simreponame
let desc = simulatedRepositoryDescription simreponame
initialize startupAnnex (Just desc) Nothing
updateSimRepoState st $ SimRepo
{ simRepoGitRepo = simrepo
@ -492,6 +493,10 @@ cloneSimRepo simreponame u parent dest st = do
(simGetExistingRepoByName st)
}
simulatedRepositoryDescription :: RepoName -> String
simulatedRepositoryDescription simreponame =
"simulated repository " ++ fromRepoName simreponame
simulationDifferences :: Differences
simulationDifferences = mkDifferences $ S.singleton Simulation
@ -499,6 +504,13 @@ updateSimRepoState :: SimState -> SimRepo -> IO SimRepo
updateSimRepoState newst sr = do
((), (ast, ard)) <- Annex.run (simRepoAnnex sr) $ doQuietAction $ do
let oldst = simRepoCurrState sr
let setdesc = \r u -> describeUUID u $ toUUIDDesc $
simulatedRepositoryDescription r
updateField oldst newst simRepos $ DiffUpdate
{ replaceDiff = setdesc
, addDiff = setdesc
, removeDiff = const noop
}
updateField oldst newst simTrustLevels $ DiffUpdate
{ replaceDiff = trustSet
, addDiff = trustSet