update location log during import
This commit is contained in:
parent
775e6ed86f
commit
b1f10fbb4d
2 changed files with 10 additions and 0 deletions
|
@ -37,6 +37,7 @@ import Utility.Metered
|
|||
import Utility.DataUnits
|
||||
import Logs.Export
|
||||
import Logs.ContentIdentifier
|
||||
import Logs.Location
|
||||
import qualified Database.Export as Export
|
||||
import qualified Database.ContentIdentifier as CID
|
||||
|
||||
|
@ -223,6 +224,8 @@ downloadImport remote importtreeconfig importablecontents = do
|
|||
Remote.retrieveExportWithContentIdentifier ia loc cid tmpfile (ingestkey loc tmpfile) p >>= \case
|
||||
Just k -> do
|
||||
recordcidkey cidmap db cid k
|
||||
logStatus k InfoPresent
|
||||
logChange k (Remote.uuid remote) InfoPresent
|
||||
return $ Just (loc, k)
|
||||
Nothing -> return Nothing
|
||||
where
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue