WORM backend: Switched to include the relative path to the file inside the repository, rather than just the file's base name. Note that if you're relying on such things to keep files separate with WORM, you should really be using a better backend.
This commit is contained in:
parent
ea9f66ef6a
commit
9711d529c8
4 changed files with 10 additions and 7 deletions
|
@ -12,6 +12,7 @@ import Types.Backend
|
|||
import Types.Key
|
||||
import Types.KeySource
|
||||
import Backend.Utilities
|
||||
import Git.FilePath
|
||||
|
||||
backends :: [Backend]
|
||||
backends = [backend]
|
||||
|
@ -27,16 +28,13 @@ backend = Backend
|
|||
}
|
||||
|
||||
{- The key includes the file size, modification time, and the
|
||||
- basename of the filename.
|
||||
-
|
||||
- That allows multiple files with the same names to have different keys,
|
||||
- while also allowing a file to be moved around while retaining the
|
||||
- same key.
|
||||
- original filename relative to the top of the git repository.
|
||||
-}
|
||||
keyValue :: KeySource -> Annex (Maybe Key)
|
||||
keyValue source = do
|
||||
stat <- liftIO $ getFileStatus $ contentLocation source
|
||||
n <- genKeyName $ takeFileName $ keyFilename source
|
||||
relf <- getTopFilePath <$> inRepo (toTopFilePath $ keyFilename source)
|
||||
n <- genKeyName relf
|
||||
return $ Just $ stubKey
|
||||
{ keyName = n
|
||||
, keyBackendName = name backend
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue