implemented cloneSimRepo

Started on updateSimRepoState
This commit is contained in:
Joey Hess 2024-09-06 14:23:29 -04:00
parent 8d707c4821
commit 4e11cb19ef
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 82 additions and 15 deletions

View file

@ -56,5 +56,7 @@ setDifferences = do
else return ds
)
forM_ (listDifferences ds') $ \d ->
setConfig (differenceConfigKey d) (differenceConfigVal d)
case differenceConfigKey d of
Nothing -> noop
Just ck -> setConfig ck (differenceConfigVal d)
recordDifferences ds' u