add visible size and time to worm keys
This commit is contained in:
parent
aaee8e231f
commit
c57b1a697c
1 changed files with 8 additions and 4 deletions
|
@ -24,6 +24,9 @@ backend = Backend.File.backend {
|
|||
-- while also allowing a file to be moved around while retaining the
|
||||
-- same key.
|
||||
--
|
||||
-- The file size and modification time are also included in the key,
|
||||
-- unhashed. This could be used as a sanity check.
|
||||
--
|
||||
-- The basename of the filename is also included in the key, so it's clear
|
||||
-- what the original filename was when a user sees the value.
|
||||
keyValue :: FilePath -> Annex (Maybe Key)
|
||||
|
@ -31,9 +34,10 @@ keyValue file = do
|
|||
stat <- liftIO $ getFileStatus file
|
||||
return $ Just $ Key ((name backend), key stat)
|
||||
where
|
||||
key stat = (checksum $ uniqueid stat) ++ sep ++ base
|
||||
key stat = (checksum $ uniqueid stat) ++ sep ++
|
||||
uniqueid stat ++ sep ++ base
|
||||
checksum s = show $ sha1 $ B.pack s
|
||||
uniqueid stat = (show $ fileSize stat) ++ sep ++
|
||||
(show $ modificationTime stat)
|
||||
uniqueid stat = (show $ modificationTime stat) ++ sep ++
|
||||
(show $ fileSize stat)
|
||||
base = takeFileName file
|
||||
sep = ":"
|
||||
|
|
Loading…
Reference in a new issue