aboutsummaryrefslogtreecommitdiff
path: root/Annex.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-12-09 14:55:47 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-12-09 14:55:47 -0400
commit819e710ac27f0e50a83eb5f2036b5c4a041c882c (patch)
treec9282a3d3095ca295cefcffa43d2f822e33fe030 /Annex.hs
parent26a0189fcb54290b1bad3afadef93804bb818987 (diff)
stash DbHandle in Annex state
Diffstat (limited to 'Annex.hs')
-rw-r--r--Annex.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/Annex.hs b/Annex.hs
index c9a4ef6a0..5c9ec4cd4 100644
--- a/Annex.hs
+++ b/Annex.hs
@@ -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.