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

use REMOVE-BEFORE in P2P protocol

Browse source 
Only clusters still need to be fixed to close this todo.
This commit is contained in:
Joey Hess 2024-07-04 13:42:09 -04:00
parent 1243af4a18
commit 99b7a0cfe9
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
5 changed files with 72 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

6
P2P/Annex.hs
View file

@ -28,6 +28,7 @@ import Annex.Verify
import Control.Monad.Free
import Control.Concurrent.STM
import Data.Time.Clock.POSIX
import qualified Data.ByteString as S
-- Full interpreter for Proto, that can receive and send objects.
@ -156,7 +157,10 @@ runLocal runst runner a = case a of
UpdateMeterTotalSize m sz next -> do
liftIO $ setMeterTotalSize m sz
runner next
RunValidityCheck checkaction next -> runner . next =<< checkaction
RunValidityCheck checkaction next ->
runner . next =<< checkaction
GetLocalCurrentTime next ->
runner . next =<< liftIO getPOSIXTime
where
transfer mk k af sd ta = case runst of
-- Update transfer logs when serving.