diff options
author | 2015-07-07 14:48:23 -0400 | |
---|---|---|
committer | 2015-07-07 14:48:23 -0400 | |
commit | d9cbdf43fe6ce971d9b5a99e60a70055f67b1ed3 (patch) | |
tree | 540a849d67b0ab43c981dc4a93432743be1054b3 /Command/SetKey.hs | |
parent | 734d7e8360b09b80f943140186911d47dc5db735 (diff) |
import: Fix failure of cross-device import on Windows.
As well as import, 2 other places ran "mv" manually, so changed them to use
moveFile as well.
Diffstat (limited to 'Command/SetKey.hs')
-rw-r--r-- | Command/SetKey.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Command/SetKey.hs b/Command/SetKey.hs index 02118fb14..d5762dd8c 100644 --- a/Command/SetKey.hs +++ b/Command/SetKey.hs @@ -31,13 +31,14 @@ mkKey = fromMaybe (error "bad key") . file2key perform :: FilePath -> Key -> CommandPerform perform file key = do - -- the file might be on a different filesystem, so mv is used + -- 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 key $ \dest -> if dest /= file - then liftIO $ - boolSystem "mv" [File file, File dest] + then liftIO $ catchBoolIO $ do + moveFile file dest + return True else return True if ok then next $ cleanup key |