diff options
Diffstat (limited to 'Command/Export.hs')
| -rw-r--r-- | Command/Export.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Command/Export.hs b/Command/Export.hs index 22ea72170..a9f474a19 100644 --- a/Command/Export.hs +++ b/Command/Export.hs @@ -23,6 +23,7 @@ import Types.Remote import Types.Export import Annex.Content import Annex.CatFile +import Annex.LockFile import Logs.Location import Logs.Export import Database.Export @@ -85,7 +86,10 @@ seek o = do r <- getParsed (exportRemote o) unlessM (isExportSupported r) $ giveup "That remote does not support exports." + withExclusiveLock (gitAnnexExportLock (uuid r)) (seek' o r) +seek' :: ExportOptions -> Remote -> CommandSeek +seek' o r = do new <- fromMaybe (giveup "unknown tree") <$> -- Dereference the tree pointed to by the branch, commit, -- or tag. |