avoid multiple unnecessary stats of the index file

Up to one per file processed.
This commit is contained in:
Joey Hess 2012-01-14 12:07:36 -04:00
parent 8c87293b48
commit 5e2b4e16ba
3 changed files with 14 additions and 8 deletions

View file

@ -9,6 +9,7 @@ module Types.BranchState where
data BranchState = BranchState {
branchUpdated :: Bool, -- has the branch been updated this run?
indexChecked :: Bool, -- has the index file been checked to exist?
-- the content of one file is cached
cachedFile :: Maybe FilePath,
@ -16,4 +17,4 @@ data BranchState = BranchState {
}
startBranchState :: BranchState
startBranchState = BranchState False Nothing ""
startBranchState = BranchState False False Nothing ""