diff options
author | Joey Hess <joey@kitenet.net> | 2012-08-24 15:52:23 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-08-24 15:52:23 -0400 |
commit | ab5e409a95f6a3aa6b9be55f4c1465008af91dd5 (patch) | |
tree | 14026185224e0c20d5ed936106fe2eae6208127c /Logs | |
parent | 0b1015370b402d859968944224758b317af16787 (diff) |
keep track of which remotes have been scanned in process state
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.
Diffstat (limited to 'Logs')
-rw-r--r-- | Logs/Transfer.hs | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs index b412ccd3e..a10ffa7d7 100644 --- a/Logs/Transfer.hs +++ b/Logs/Transfer.hs @@ -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 |