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

update

Browse source
This commit is contained in:
Joey Hess 2010-10-12 20:20:59 -04:00
parent b7858ada03
commit 490eb66be4
2 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Locations.hs
View file

@ -30,9 +30,10 @@ keyFile key = replace "/" "%" $ replace "%" "%%" key
annexLocation :: State -> Key -> FilePath
annexLocation state key = gitDir (repo state) ++ "/annex/" ++ (keyFile key)
{- Name of state file that holds the key for an annexed file,
- using a given backend. -}
{- The mapping from filename to its key is stored in the .git-annex directory,
- in a file named `key/$filename.$backend` -}
backendFile :: State -> Backend -> FilePath -> String
backendFile state backend file =
gitStateDir (repo state) ++ (gitRelative (repo state) file) ++
gitStateDir (repo state) ++ "key/" ++
(gitRelative (repo state) file) ++
"." ++ (name backend)