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

keep track of which remotes have been scanned in process state

Browse source 
Since it turned out to make sense to always scan all remotes on startup,
there's no need to persist the info about which have been scanned.
This commit is contained in:
Joey Hess 2012-08-24 15:52:23 -04:00
parent 0b1015370b
commit ab5e409a95
2 changed files with 17 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Logs/Transfer.hs
View file

@ -230,23 +230,3 @@ failedTransferDir u direction r = gitAnnexTransferDir r
</> "failed"
</> showLcDirection direction
</> fromUUID u
{- The directory holding remote uuids that have been scanned for transfers. -}
transferScannedDir :: Git.Repo -> FilePath
transferScannedDir r = gitAnnexTransferDir r </> "scanned"
{- The file indicating whether a remote uuid has been scanned. -}
transferScannedFile :: UUID -> Git.Repo -> FilePath
transferScannedFile u r = transferScannedDir r </> fromUUID u
{- Checks if a given remote UUID has been scanned for transfers. -}
checkTransferScanned :: UUID -> Git.Repo -> IO Bool
checkTransferScanned u r = doesFileExist $ transferScannedFile u r
{- Records that a scan has taken place. -}
transferScanned :: UUID -> Git.Repo -> IO ()
transferScanned u r = do
createDirectoryIfMissing True (parentDir f)
writeFile f ""
where
f = transferScannedFile u r