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

WORM backend: When adding a file in a subdirectory, avoid including the subdirectory in the key name.

Browse source
This commit is contained in:
Joey Hess 2014-08-12 14:38:53 -04:00
parent 4ae25032c6
commit f0df660570
3 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Backend/WORM.hs
View file

@ -36,7 +36,7 @@ backend = Backend
keyValue :: KeySource -> Annex (Maybe Key)
keyValue source = do
stat <- liftIO $ getFileStatus $ contentLocation source
n <- genKeyName $ keyFilename source
n <- genKeyName $ takeFileName $ keyFilename source
return $ Just $ stubKey
{ keyName = n
, keyBackendName = name backend