schmittlauch/Hash2Pub
1
0
Fork 1
Code Issues 47 Pull requests Releases Wiki Activity

correct the slice of transfered tags at leave

Browse source
This commit is contained in:
Trolli Schmittlauch 2020-08-15 23:58:47 +02:00
parent 4302452d18
commit 470ce6f39a
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Hash2Pub/FediChord.hs
View file

@ -293,8 +293,11 @@ fediChordVserverLeave ns = do
successorLeave <- liftIO $ sendUntilSuccess 0 successorLeave <- liftIO $ sendUntilSuccess 0
-- trigger service data transfer for abandoned key space -- trigger service data transfer for abandoned key space
migrateToNode <- liftEither successorLeave migrateToNode <- liftEither successorLeave
let lowerKeyBound = maybe (getNid ns) getNid $ headMay (predecessors ns)
ownService <- nodeService <$> (liftIO . readTVarIO $ parentRealNode ns) ownService <- nodeService <$> (liftIO . readTVarIO $ parentRealNode ns)
migrationResult <- liftIO $ migrateData ownService (getNid ns) (getNid migrateToNode) (getDomain migrateToNode, fromIntegral $ getServicePort migrateToNode) -- previously held data is the one between the immediate predecessor and
-- the own ID
migrationResult <- liftIO $ migrateData ownService lowerKeyBound (getNid ns) (getDomain migrateToNode, fromIntegral $ getServicePort migrateToNode)
liftEither migrationResult liftEither migrationResult