19 lines
402 B
Haskell
19 lines
402 B
Haskell
|
{- 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,
|
||
|
|
branchChanged :: Bool,
|
||
|
|
cachedFile :: Maybe FilePath,
|
||
|
|
cachedContent :: String
|
||
|
|
}
|
||
|
|
|
||
|
|
startBranchState :: BranchState
|
||
|
|
startBranchState = BranchState False False Nothing ""
|