update
This commit is contained in:
parent
50797ee2c5
commit
3f449f845e
2 changed files with 8 additions and 4 deletions
|
@ -157,7 +157,7 @@ adjustExportImport r = case M.lookup "exporttree" (config r) of
|
|||
Just newcid -> do
|
||||
liftIO $ ContentIdentifier.recordContentIdentifier db (uuid r') newcid k
|
||||
recordContentIdentifier (uuid r') newcid k
|
||||
return True
|
||||
return True
|
||||
, removeExport = \k loc -> do
|
||||
db <- getciddb ciddbv
|
||||
removeExportWithContentIdentifier (importActions r') k loc
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue