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

@ -60,6 +60,7 @@ import Types.NumCopies
import Types.LockCache
import Types.DesktopNotify
import Types.CleanupActions
import qualified Database.AssociatedFiles.Types
#ifdef WITH_QUVI
import Utility.Quvi (QuviVersion)
#endif
@ -134,6 +135,7 @@ data AnnexState = AnnexState
, desktopnotify :: DesktopNotify
, workers :: [Either AnnexState (Async AnnexState)]
, concurrentjobs :: Maybe Int
, associatedfilesdbhandle :: Maybe Database.AssociatedFiles.Types.DbHandle
}
newState :: GitConfig -> Git.Repo -> AnnexState
@ -179,6 +181,7 @@ newState c r = AnnexState
, desktopnotify = mempty
, workers = []
, concurrentjobs = Nothing
, associatedfilesdbhandle = Nothing
}
{- Makes an Annex state object for the specified git repo.