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

incremental verify for directory special remote

Browse source 
Added fileRetriever', which will let the remaining special remotes
eventually also support incremental verify.

Sponsored-by: Dartmouth College's DANDI project
This commit is contained in:
Joey Hess 2021-08-16 16:22:00 -04:00
parent a644f729ce
commit b1622eb932
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
13 changed files with 39 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/WebDAV.hs
View file

@ -170,9 +170,9 @@ finalizeStore dav tmp dest = do
retrieve :: DavHandleVar -> ChunkConfig -> Retriever
retrieve hv cc = fileRetriever $ \d k p ->
withDavHandle hv $ \dav -> case cc of
LegacyChunks _ -> retrieveLegacyChunked d k p dav
LegacyChunks _ -> retrieveLegacyChunked (fromRawFilePath d) k p dav
_ -> liftIO $
goDAV dav $ retrieveHelper (keyLocation k) d p
goDAV dav $ retrieveHelper (keyLocation k) (fromRawFilePath d) p
retrieveHelper :: DavLocation -> FilePath -> MeterUpdate -> DAVT IO ()
retrieveHelper loc d p = do