import: Add --skip-duplicates option.
Note that the hash backends were made to stop printing a (checksum..) message as part of this, since it showed up without a file when deciding whether to act on a file. Should have probably removed that message a while ago anyway, I suppose.
This commit is contained in:
parent
9639142df9
commit
64160a9679
4 changed files with 46 additions and 36 deletions
|
@ -129,9 +129,7 @@ needsUpgrade key = "\\" `isPrefixOf` keyHash key ||
|
|||
any (not . validExtension) (takeExtensions $ keyName key)
|
||||
|
||||
hashFile :: Hash -> FilePath -> Integer -> Annex String
|
||||
hashFile hash file filesize = do
|
||||
showAction "checksum"
|
||||
liftIO $ go hash
|
||||
hashFile hash file filesize = liftIO $ go hash
|
||||
where
|
||||
go (SHAHash hashsize) = case shaHasher hashsize filesize of
|
||||
Left sha -> sha <$> L.readFile file
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue