summaryrefslogtreecommitdiff
path: root/Annex.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-22 16:35:32 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-22 16:35:32 -0400
commit180fbceee03badc450c84c28ef8219fa68d80bd6 (patch)
tree1739e92f46067ae0be84af6789b3d3b9adb09ee1 /Annex.hs
parent9a5de318d15f0234080a6f0bd802fe073cf57334 (diff)
add "unused" preferred content expression
With a really nice optimisation that keeps it from having any overhead in normal operation! This commit was sponsored by Ulises Vitulli.
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 e057bb9d2..9beded53f 100644
--- a/Annex.hs
+++ b/Annex.hs
@@ -46,6 +46,7 @@ import Git.CheckAttr
import Git.CheckIgnore
import Git.SharedRepository
import qualified Git.Queue
+import Types.Key
import Types.Backend
import Types.GitConfig
import qualified Types.Remote
@@ -112,6 +113,7 @@ data AnnexState = AnnexState
, inodeschanged :: Maybe Bool
, useragent :: Maybe String
, errcounter :: Integer
+ , unusedkeys :: Maybe (S.Set Key)
}
newState :: GitConfig -> Git.Repo -> AnnexState
@@ -148,6 +150,7 @@ newState c r = AnnexState
, inodeschanged = Nothing
, useragent = Nothing
, errcounter = 0
+ , unusedkeys = Nothing
}
{- Makes an Annex state object for the specified git repo.