diff options
Diffstat (limited to 'Command/AddUrl.hs')
| -rw-r--r-- | Command/AddUrl.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index dfdbf5b5a..0e7201f12 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -370,7 +370,9 @@ addWorkTree u url file key mtmp = case mtmp of Nothing -> go Just tmp -> do -- Move to final location for large file check. - pruneTmpWorkDirBefore tmp (\_ -> liftIO $ renameFile tmp file) + pruneTmpWorkDirBefore tmp $ \_ -> liftIO $ do + createDirectoryIfMissing True (takeDirectory file) + renameFile tmp file largematcher <- largeFilesMatcher large <- checkFileMatcher largematcher file if large |