mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove unused fields

Browse source
This commit is contained in:
Joey Hess 2012-12-19 23:41:54 -04:00
parent 3ef0ac2fa5
commit a6bd0076d4
1 changed files with 5 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
Types/BranchState.hs
View file

@ -7,14 +7,10 @@
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,
cachedContent :: String
}
data BranchState = BranchState
{ branchUpdated :: Bool -- has the branch been updated this run?
, indexChecked :: Bool -- has the index file been checked to exist?
}
startBranchState :: BranchState
startBranchState = BranchState False False Nothing ""
startBranchState = BranchState False False