fully preserve input format of connect and disconnect commands
Just lifted the sim file as a DSL into the type level for that.
This commit is contained in:
parent
f381b457f2
commit
7b931df475
3 changed files with 148 additions and 95 deletions
|
@ -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")))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue