diff options
Diffstat (limited to 'Command')
-rw-r--r-- | Command/RecvKey.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Command/RecvKey.hs b/Command/RecvKey.hs index 988c4f90e..51bf69b1f 100644 --- a/Command/RecvKey.hs +++ b/Command/RecvKey.hs @@ -27,10 +27,11 @@ seek = withKeys start start :: Key -> CommandStart start key = fieldTransfer Download key $ \_p -> do - -- Always verify content when a direct mode repo is sending a file, + -- Always verify content when a repo is sending an unlocked file, -- as the file could change while being transferred. - fromdirect <- isJust <$> Fields.getField Fields.direct - let verify = if fromdirect then AlwaysVerify else DefaultVerify + fromunlocked <- (isJust <$> Fields.getField Fields.unlocked) + <||> (isJust <$> Fields.getField Fields.direct) + let verify = if fromunlocked then AlwaysVerify else DefaultVerify ifM (getViaTmp verify key go) ( do -- forcibly quit after receiving one key, |