diff options
Diffstat (limited to 'Command/SetKey.hs')
| -rw-r--r-- | Command/SetKey.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/SetKey.hs b/Command/SetKey.hs index 319229482..13715d3a7 100644 --- a/Command/SetKey.hs +++ b/Command/SetKey.hs @@ -35,7 +35,7 @@ perform file key = do -- the file might be on a different filesystem, so moveFile is used -- rather than simply calling moveAnnex; disk space is also -- checked this way. - ok <- getViaTmp DefaultVerify key $ \dest -> + ok <- getViaTmp DefaultVerify key $ \dest -> unVerified $ if dest /= file then liftIO $ catchBoolIO $ do moveFile file dest |