implemented cloneSimRepo
Started on updateSimRepoState
This commit is contained in:
parent
8d707c4821
commit
4e11cb19ef
3 changed files with 82 additions and 15 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue