stash DbHandle in Annex state
This commit is contained in:
parent
78a6b8ce05
commit
05b598a057
5 changed files with 46 additions and 14 deletions
|
@ -102,7 +102,5 @@ emitPointer = putStrLn . formatPointer
|
|||
|
||||
updateAssociatedFiles :: Key -> FilePath -> Annex ()
|
||||
updateAssociatedFiles k f = do
|
||||
h <- AssociatedFiles.openDb
|
||||
liftIO $ do
|
||||
AssociatedFiles.addDb h k f
|
||||
AssociatedFiles.closeDb h
|
||||
AssociatedFiles.addDb k f
|
||||
AssociatedFiles.flushDb
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue