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

add visible size and time to worm keys

Browse source
This commit is contained in:
Joey Hess 2010-10-17 00:10:04 -04:00
parent aaee8e231f
commit c57b1a697c
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Backend/WORM.hs
View file

@ -24,6 +24,9 @@ backend = Backend.File.backend {
-- while also allowing a file to be moved around while retaining the -- while also allowing a file to be moved around while retaining the
-- same key. -- 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 -- 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. -- what the original filename was when a user sees the value.
keyValue :: FilePath -> Annex (Maybe Key) keyValue :: FilePath -> Annex (Maybe Key)
@ -31,9 +34,10 @@ keyValue file = do
stat <- liftIO $ getFileStatus file stat <- liftIO $ getFileStatus file
return $ Just $ Key ((name backend), key stat) return $ Just $ Key ((name backend), key stat)
where 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 checksum s = show $ sha1 $ B.pack s
uniqueid stat = (show $ fileSize stat) ++ sep ++ uniqueid stat = (show $ modificationTime stat) ++ sep ++
(show $ modificationTime stat) (show $ fileSize stat)
base = takeFileName file base = takeFileName file
sep = ":" sep = ":"