create simulated files
This commit is contained in:
parent
5f3a2f4c6b
commit
bbd5390fa3
2 changed files with 24 additions and 6 deletions
|
@ -29,6 +29,8 @@ seek _ = do
|
|||
st' <- runSimCommand (CommandInit (RepoName "foo")) st
|
||||
>>= runSimCommand (CommandTrustLevel (RepoName "foo") "trusted")
|
||||
>>= runSimCommand (CommandUse (RepoName "bar") "here")
|
||||
>>= runSimCommand (CommandConnect (RepoName "foo") (RepoName "bar"))
|
||||
>>= runSimCommand (CommandAdd "foo" 100000 (RepoName "foo"))
|
||||
let simdir = \u -> tmpdir </> fromUUID u
|
||||
st'' <- liftIO $ updateSimRepos r simdir st'
|
||||
liftIO $ print tmpdir
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue