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

started on sim file parser

Browse source
This commit is contained in:
Joey Hess 2024-09-11 11:53:25 -04:00
parent c4609a73f2
commit 84bbbeae9d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
5 changed files with 116 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/Sim.hs
View file

@ -11,6 +11,7 @@ module Command.Sim where
import Command
import Annex.Sim
import Annex.Sim.File
import Utility.Tmp.Dir
import System.Random
@ -32,7 +33,7 @@ seek _ = do
>>= runSimCommand (CommandUse (RepoName "bar") "here")
>>= runSimCommand (CommandConnect (RepoName "foo") (RemoteName "bar"))
>>= runSimCommand (CommandConnect (RepoName "bar") (RemoteName "foo"))
>>= runSimCommand (CommandAdd "bigfile" 1000000 (RepoName "foo"))
>>= runSimCommand (CommandAdd "bigfile" 1000000 [RepoName "foo"])
>>= runSimCommand (CommandAction (RepoName "bar") (ActionGitPull (RemoteName "foo")))
>>= runSimCommand (CommandAction (RepoName "bar") (ActionGetWanted (RemoteName "foo")))
st'' <- liftIO $ updateSimRepos st'