diff options
Diffstat (limited to 'Command/Reinject.hs')
-rw-r--r-- | Command/Reinject.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Reinject.hs b/Command/Reinject.hs index 90ddc1c2a..1c21b4ae6 100644 --- a/Command/Reinject.hs +++ b/Command/Reinject.hs @@ -43,7 +43,7 @@ perform src _dest key = ifM move -- so moveFile is used rather than simply calling -- moveToObjectDir; disk space is also checked this way, -- and the file's content is verified to match the key. - move = getViaTmp DefaultVerify key $ \tmp -> + move = getViaTmp DefaultVerify key $ \tmp -> unVerified $ liftIO $ catchBoolIO $ do moveFile src tmp return True |