add git-annex updatecluster command
Seems to work fine, making the right changes to the git-annex branch.
This commit is contained in:
parent
2844230dfe
commit
bbf261487d
13 changed files with 114 additions and 28 deletions
|
@ -21,7 +21,6 @@ import Types.Cluster
|
|||
import Logs
|
||||
import Logs.UUIDBased
|
||||
import Logs.MapLog
|
||||
import Annex.UUID
|
||||
|
||||
import qualified Data.Set as S
|
||||
import qualified Data.Map as M
|
||||
|
@ -61,10 +60,9 @@ recordCluster clusteruuid nodeuuids = do
|
|||
nodeuuids
|
||||
|
||||
c <- currentVectorClock
|
||||
u <- getUUID
|
||||
Annex.Branch.change (Annex.Branch.RegardingUUID [fromClusterUUID clusteruuid]) clusterLog $
|
||||
(buildLogNew buildClusterNodeList)
|
||||
. changeLog c u nodeuuids'
|
||||
. changeLog c (fromClusterUUID clusteruuid) nodeuuids'
|
||||
. parseClusterLog
|
||||
|
||||
buildClusterNodeList :: S.Set ClusterNodeUUID -> Builder
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue