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

fully preserve input format of connect and disconnect commands

Browse source 
Just lifted the sim file as a DSL into the type level for that.
This commit is contained in:
Joey Hess 2024-09-11 21:00:51 -04:00
parent f381b457f2
commit 7b931df475
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 148 additions and 95 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Sim.hs
View file

@ -30,8 +30,6 @@ seek _ = do
let st = emptySimState rng repobyname getpath
st' <- runSimCommand (CommandInit (RepoName "foo")) st
>>= runSimCommand (CommandUse (RepoName "bar") "here")
>>= runSimCommand (CommandConnect (RepoName "foo") (RemoteName "bar"))
>>= runSimCommand (CommandConnect (RepoName "bar") (RemoteName "foo"))
>>= runSimCommand (CommandAdd "bigfile" 1000000 [RepoName "foo"])
>>= runSimCommand (CommandAction (RepoName "bar") (ActionGitPull (RemoteName "foo")))
>>= runSimCommand (CommandAction (RepoName "bar") (ActionGetWanted (RemoteName "foo")))