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

implement ActionPull/Pull/Sync

Browse source 
Somewhat unsatisfying implementation, but all the alternatives were
worse.
This commit is contained in:
Joey Hess 2024-09-16 16:58:03 -04:00
parent c420ec9364
commit 92c10045d1
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 29 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
Annex/Sim.hs
View file

@ -238,12 +238,37 @@ runSimCommand (CommandStep n) repobyname st
>>= runSimCommand (CommandStep (pred n)) repobyname
(Nothing, st') -> return st'
| otherwise = return st
runSimCommand (CommandAction reponame (ActionPull remote)) repobyname st =
runCompoundSimAction repobyname
[ CommandAction reponame (ActionGitPull remote)
, CommandAction reponame (ActionGetWanted remote)
, CommandAction reponame (ActionDropUnwanted Nothing)
] st
runSimCommand (CommandAction reponame (ActionPush remote)) repobyname st =
runCompoundSimAction repobyname
[ CommandAction reponame (ActionSendWanted remote)
, CommandAction reponame (ActionDropUnwanted (Just remote))
, CommandAction reponame (ActionGitPush remote)
] st
runSimCommand (CommandAction reponame (ActionSync remote)) repobyname st =
runCompoundSimAction repobyname
[ CommandAction reponame (ActionGitPull remote)
, CommandAction reponame (ActionGetWanted remote)
, CommandAction reponame (ActionSendWanted remote)
, CommandAction reponame (ActionDropUnwanted (Just remote))
, CommandAction reponame (ActionGitPush remote)
] st
runSimCommand cmd repobyname st =
case applySimCommand cmd st repobyname of
Left err -> giveup err
Right (Right st') -> return st'
Right (Left mkst) -> mkst
runCompoundSimAction :: GetExistingRepoByName -> [SimCommand] -> SimState SimRepo -> Annex (SimState SimRepo)
runCompoundSimAction repobyname (a:as) st =
runSimCommand a repobyname st >>= runCompoundSimAction repobyname as
runCompoundSimAction _ [] st = return st
applySimCommand
:: SimCommand
-> SimState SimRepo
@ -412,9 +437,6 @@ applySimAction
-> SimAction
-> SimState SimRepo
-> Either String (Either (Annex (SimState SimRepo)) (SimState SimRepo))
applySimAction _r _u (ActionPull _remote) _st = undefined -- TODO
applySimAction _r _u (ActionPush _remote) _st = undefined -- TODO
applySimAction _r _u (ActionSync _remote) _st = undefined -- TODO
applySimAction r u (ActionGetWanted remote) st =
overFilesRemote r u remote S.member wanted go st
where
@ -481,6 +503,10 @@ applySimAction r u (ActionGitPush remote) st =
applySimAction r u (ActionGitPull remote) st =
checkKnownRemote remote r u st $ \_ ->
simulateGitAnnexMerge (remoteNameToRepoName remote) r st
-- These are handled by runSimCommand
applySimAction _r _u (ActionPull _remote) _st = error "applySimAction ActionPull"
applySimAction _r _u (ActionPush _remote) _st = error "applySimAction ActionPush"
applySimAction _r _u (ActionSync _remote) _st = error "applySimAction ActionSync"
overFilesRemote
:: RepoName