git-annex/Types/BranchState.hs

{- git-annex BranchState data type
 -
 - Copyright 2011 Joey Hess <joey@kitenet.net>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

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
}

startBranchState :: BranchState
startBranchState = BranchState False False Nothing ""
Branch handling improvements Support creating the branch. Unified branch state into a single data type. Only commit changes when the index has been changed. 2011-06-22 19:58:30 +00:00			`{- git-annex BranchState data type`
			`-`
			`- Copyright 2011 Joey Hess <joey@kitenet.net>`
			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

			`module Types.BranchState where`

			`data BranchState = BranchState {`
Sped back up fsck, copy --from etc All commands that often have to read a lot of information from the git-annex branch should now be nearly as fast as before the branch was introduced. Before fsck was taking approximatly 3 hours, now it's running in 8 minutes. The code is very nasty. It should be rewritten to read the header line from git cat-file, and then read the specified number of bytes of content. 2011-06-30 01:23:40 +00:00			`branchUpdated :: Bool, -- has the branch been updated this run?`
avoid multiple unnecessary stats of the index file Up to one per file processed. 2012-01-14 16:07:36 +00:00			`indexChecked :: Bool, -- has the index file been checked to exist?`
Sped back up fsck, copy --from etc All commands that often have to read a lot of information from the git-annex branch should now be nearly as fast as before the branch was introduced. Before fsck was taking approximatly 3 hours, now it's running in 8 minutes. The code is very nasty. It should be rewritten to read the header line from git cat-file, and then read the specified number of bytes of content. 2011-06-30 01:23:40 +00:00
			`-- the content of one file is cached`
Branch handling improvements Support creating the branch. Unified branch state into a single data type. Only commit changes when the index has been changed. 2011-06-22 19:58:30 +00:00			`cachedFile :: Maybe FilePath,`
			`cachedContent :: String`
			`}`

			`startBranchState :: BranchState`
avoid multiple unnecessary stats of the index file Up to one per file processed. 2012-01-14 16:07:36 +00:00			`startBranchState = BranchState False False Nothing ""`