stash DbHandle in Annex state

This commit is contained in:
Joey Hess 2015-12-09 14:55:47 -04:00
parent 78a6b8ce05
commit 05b598a057
Failed to extract signature
5 changed files with 46 additions and 14 deletions

View file

@ -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