started Annex.Sim

Have most of the sim command handler, but to keep it pure while implementing
the rest will need some refactoring.

It seems likely that running the simulation itself will not be able to be
entirely pure. Preferred content evaluation runs in Annex after all.

Note that the somewhat awkward randomWords is because the i386ancient
build depends on a version of random too old to support generating a
random ByteString on its own.
This commit is contained in:
Joey Hess 2024-09-04 15:10:39 -04:00
parent 84c781d924
commit b932acf4ad
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
6 changed files with 281 additions and 6 deletions

19
Command/Sim.hs Normal file
View file

@ -0,0 +1,19 @@
{- git-annex command
-
- Copyright 2024 Joey Hess <id@joeyh.name>
-
- Licensed under the GNU AGPL version 3 or higher.
-}
module Command.Sim where
import Command
import Annex.Sim
cmd :: Command
cmd = command "sim" SectionTesting
"simulate a network of repositories"
paramCommand (withParams seek)
seek :: CmdParams -> CommandSeek
seek = undefined