sim stabilization works now
This commit is contained in:
Joey Hess 2024-09-20 15:39:52 -04:00
parent 19b966f0fd
commit e9c59eceb8
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 15 additions and 9 deletions

View file

@ -75,6 +75,7 @@ start simfile = do
whenM (liftIO $ doesDirectoryExist simdir) $
giveup "A sim was previously started. Use `git-annex sim end` to stop it before starting a new one."
showLongNote $ UnquotedString "Sim started."
rng <- fst . random <$> initStdGen
let st = emptySimState rng simdir
case simfile of
@ -83,7 +84,6 @@ start simfile = do
case parseSimFile c of
Left err -> giveup err
Right cs -> startup simdir st cs
showLongNote $ UnquotedString "Sim started."
where
startup simdir st cs = do
repobyname <- mkGetExistingRepoByName