add ExportTree table to export db
New table needed to look up what filenames are used in the currently exported tree, for reasons explained in export.mdwn. Also, added smart constructors for ExportLocation and ExportDirectory to make sure they contain filepaths with the right direction slashes. And some code refactoring. This commit was sponsored by Francois Marier on Patreon.
This commit is contained in:
parent
486902389d
commit
b03d77c211
13 changed files with 247 additions and 93 deletions
|
@ -204,8 +204,8 @@ removeExportDav mh _k loc = runExport mh $ \_dav ->
|
|||
removeHelper (exportLocation loc)
|
||||
|
||||
removeExportDirectoryDav :: Maybe DavHandle -> ExportDirectory -> Annex Bool
|
||||
removeExportDirectoryDav mh (ExportDirectory dir) = runExport mh $ \_dav ->
|
||||
safely (inLocation dir delContentM)
|
||||
removeExportDirectoryDav mh dir = runExport mh $ \_dav ->
|
||||
safely (inLocation (fromExportDirectory dir) delContentM)
|
||||
>>= maybe (return False) (const $ return True)
|
||||
|
||||
renameExportDav :: Maybe DavHandle -> Key -> ExportLocation -> ExportLocation -> Annex Bool
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue