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

sim: add commands for cluster management

Browse source 
Clusters are not actually simulated yet.
This commit is contained in:
Joey Hess 2024-09-25 11:07:58 -04:00
parent 8047128591
commit 344141da63
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 70 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Annex/Sim/File.hs
View file

@ -88,6 +88,12 @@ generateSimFile = unlines . map unwords . go
["maxsize", repo, showsize (fromMaxSize maxsize)] : go rest
go (CommandRebalance b : rest) =
["rebalance", if b then "on" else "off"] : go rest
go (CommandInitCluster (RepoName repo) : rest) =
["initcluster", repo] : go rest
go (CommandAddCluster (RepoName repo) nodes : rest) =
("addcluster" : repo : map fromRemoteName nodes) : go rest
go (CommandRemoveCluster (RepoName repo) (RemoteName node) : rest) =
["removecluster", repo, node] : go rest
go (CommandVisit (RepoName repo) cmdparams : rest) =
(["visit", repo] ++ cmdparams) : go rest
go (CommandComment s : rest) =
@ -204,6 +210,12 @@ parseSimCommand ("maxsize":repo:size:[]) =
parseSimCommand ("rebalance":onoff:[]) = case isTrueFalse onoff of
Just b -> Right $ CommandRebalance b
Nothing -> Left $ "Unable to parse rebalance value \"" ++ onoff ++ "\""
parseSimCommand ("initcluster":name:[]) =
Right $ CommandInitCluster (RepoName name)
parseSimCommand ("addcluster":name:nodes) =
Right $ CommandAddCluster (RepoName name) (map RemoteName nodes)
parseSimCommand ("removecluster":name:node:[]) =
Right $ CommandRemoveCluster (RepoName name) (RemoteName node)
parseSimCommand ("visit":repo:cmdparams) =
Right $ CommandVisit (RepoName repo) cmdparams
parseSimCommand ws = parseError ws