diff options
Diffstat (limited to 'Annex/Content.hs')
-rw-r--r-- | Annex/Content.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index 679b7e6b7..34d4957bf 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -268,10 +268,11 @@ verifyKeyContent v k f = verifysize <&&> verifycontent , return True ) -data Verify = AlwaysVerify | RemoteVerify Remote | DefaultVerify +data Verify = AlwaysVerify | NoVerify | RemoteVerify Remote | DefaultVerify shouldVerify :: Verify -> Annex Bool shouldVerify AlwaysVerify = return True +shouldVerify NoVerify = return False shouldVerify DefaultVerify = annexVerify <$> Annex.getGitConfig shouldVerify (RemoteVerify r) = shouldVerify DefaultVerify <&&> pure (remoteAnnexVerify (Types.Remote.gitconfig r)) |