diff options
Diffstat (limited to 'Command')
-rw-r--r-- | Command/Fsck.hs | 2 | ||||
-rw-r--r-- | Command/Unlock.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index 8414b5b26..26c788d56 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -135,7 +135,7 @@ performRemote key file backend numcopies remote = let cleanup = liftIO $ catchIO (removeFile tmp) (const noop) cleanup cleanup `after` a tmp - getfile tmp = ifM (checkDiskSpace (Just tmp) key 0) + getfile tmp = ifM (checkDiskSpace (Just tmp) key 0 True) ( ifM (Remote.retrieveKeyFileCheap remote key (Just file) tmp) ( return (Just True) , ifM (Annex.getState Annex.fast) diff --git a/Command/Unlock.hs b/Command/Unlock.hs index 208381930..a1b1ce411 100644 --- a/Command/Unlock.hs +++ b/Command/Unlock.hs @@ -43,7 +43,7 @@ start file key = do ) perform :: FilePath -> Key -> CommandPerform -perform dest key = ifM (checkDiskSpace Nothing key 0) +perform dest key = ifM (checkDiskSpace Nothing key 0 True) ( do src <- calcRepo $ gitAnnexLocation key tmpdest <- fromRepo $ gitAnnexTmpObjectLocation key |