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

move old direct mode stuff out of Annex.Locations

Browse source
This commit is contained in:
Joey Hess 2020-11-12 12:40:35 -04:00
parent d7da4ee00a
commit b1eb47599a
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 15 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Upgrade/V5/Direct.hs
View file

@ -128,3 +128,16 @@ removeInodeCache key = withInodeCacheFile key $ \f ->
withInodeCacheFile :: Key -> (RawFilePath -> Annex a) -> Annex a
withInodeCacheFile key a = a =<< calcRepo (gitAnnexInodeCache key)
{- File that maps from a key to the file(s) in the git repository. -}
gitAnnexMapping :: Key -> Git.Repo -> GitConfig -> IO RawFilePath
gitAnnexMapping key r c = do
loc <- gitAnnexLocation key r c
return $ loc <> ".map"
{- File that caches information about a key's content, used to determine
- if a file has changed. -}
gitAnnexInodeCache :: Key -> Git.Repo -> GitConfig -> IO RawFilePath
gitAnnexInodeCache key r c = do
loc <- gitAnnexLocation key r c
return $ loc <> ".cache"