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

split out Types.Export

Browse source
This commit is contained in:
Joey Hess 2017-09-15 16:34:45 -04:00
parent e54a05612e
commit e1f5c90c92
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
12 changed files with 48 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/Export.hs
View file

@ -20,6 +20,7 @@ import Git.FilePath
import Git.Sha
import Types.Key
import Types.Remote
import Types.Export
import Annex.Content
import Annex.CatFile
import Logs.Location
@ -321,6 +322,6 @@ cleanupRename ea db ek src dest = do
removeExportLocation db (asKey ek) src
addExportLocation db (asKey ek) dest
flushDbQueue db
if exportedDirectories src /= exportedDirectories dest
if exportDirectories src /= exportDirectories dest
then removeEmptyDirectories ea db src [asKey ek]
else return True