diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-11-07 12:07:36 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-11-07 12:07:36 -0400 |
commit | 296b4d917e4b5dcbf97bbb81ef044335bc8684c4 (patch) | |
tree | 51631d30a842220ddd69980cfe673123343aba4b /Command/Reinject.hs | |
parent | fd259f7d34975cfa2bf0a54248dc65d596cfaac2 (diff) |
reinject --known: Avoid second, unncessary checksum of file.
Diffstat (limited to 'Command/Reinject.hs')
-rw-r--r-- | Command/Reinject.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Command/Reinject.hs b/Command/Reinject.hs index ce18c7cb6..fa2459e22 100644 --- a/Command/Reinject.hs +++ b/Command/Reinject.hs @@ -45,7 +45,7 @@ startSrcDest (src:dest:[]) | otherwise = notAnnexed src $ do showStart "reinject" dest next $ ifAnnexed dest - (perform src) + (\key -> perform src key (verifyKeyContent DefaultVerify UnVerified key src)) stop startSrcDest _ = error "specify a src file and a dest file" @@ -56,7 +56,7 @@ startKnown src = notAnnexed src $ do case mkb of Nothing -> error "Failed to generate key" Just (key, _) -> ifM (isKnownKey key) - ( next $ perform src key + ( next $ perform src key (return True) , do warning "Not known content; skipping" next $ next $ return True @@ -65,14 +65,14 @@ startKnown src = notAnnexed src $ do notAnnexed :: FilePath -> CommandStart -> CommandStart notAnnexed src = ifAnnexed src (error $ "cannot used annexed file as src: " ++ src) -perform :: FilePath -> Key -> CommandPerform -perform src key = ifM move +perform :: FilePath -> Key -> Annex Bool -> CommandPerform +perform src key verify = ifM move ( next $ cleanup key , error "failed" ) where move = checkDiskSpaceToGet key False $ - ifM (verifyKeyContent DefaultVerify UnVerified key src) + ifM verify ( do moveAnnex key src return True |