diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-09-06 15:48:14 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-09-06 15:48:14 -0400 |
| commit | 7dcc273ec92892bdc55f9f8d9802f2e4edeca4c5 (patch) | |
| tree | 185248ff9674064f11ebc918a48c90c7f5f29929 | |
| parent | 87ac73c70d33e15a537205d2d942bdfc4903dae7 (diff) | |
rename bug fix
| -rw-r--r-- | Remote/Directory.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Directory.hs b/Remote/Directory.hs index 7769eddd2..512ba1cef 100644 --- a/Remote/Directory.hs +++ b/Remote/Directory.hs @@ -261,7 +261,7 @@ checkPresentExportDirectory d _k loc = renameExportDirectory :: FilePath -> Key -> ExportLocation -> ExportLocation -> Annex Bool renameExportDirectory d _k oldloc newloc = liftIO $ catchBoolIO $ do - createDirectoryIfMissing True dest + createDirectoryIfMissing True (takeDirectory dest) renameFile src dest removeExportLocation d oldloc return True |