mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

rename bug fix

Browse source
This commit is contained in:
Joey Hess 2017-09-06 15:48:14 -04:00
parent 3ccf661d7c
commit 5cd340ce27
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/Directory.hs
View file

@ -261,7 +261,7 @@ checkPresentExportDirectory d _k loc =
renameExportDirectory :: FilePath -> Key -> ExportLocation -> ExportLocation -> Annex Bool renameExportDirectory :: FilePath -> Key -> ExportLocation -> ExportLocation -> Annex Bool
renameExportDirectory d _k oldloc newloc = liftIO $ catchBoolIO $ do renameExportDirectory d _k oldloc newloc = liftIO $ catchBoolIO $ do
createDirectoryIfMissing True dest createDirectoryIfMissing True (takeDirectory dest)
renameFile src dest renameFile src dest
removeExportLocation d oldloc removeExportLocation d oldloc
return True return True