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?

	-- the content of one file is cached
	cachedFile :: Maybe FilePath,
	cachedContent :: String
}

startBranchState :: BranchState
startBranchState = BranchState 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?`

			`-- 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`
refactor catfile code split into generic IO code, and a thin Annex wrapper 2011-09-28 19:15:42 +00:00			`startBranchState = BranchState False Nothing ""`