diff options
Diffstat (limited to 'Remote/Directory.hs')
| -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 342b5bc57..7f0f46512 100644 --- a/Remote/Directory.hs +++ b/Remote/Directory.hs @@ -235,7 +235,7 @@ exportPath d (ExportLocation loc) = d </> loc storeExportDirectory :: FilePath -> FilePath -> Key -> ExportLocation -> MeterUpdate -> Annex Bool storeExportDirectory d src _k loc p = liftIO $ catchBoolIO $ do - createDirectoryIfMissing True dest + createDirectoryIfMissing True (takeDirectory dest) withMeteredFile src p (L.writeFile dest) return True where |