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

simplify and make more atomic

Browse source
This commit is contained in:
Joey Hess 2015-04-10 15:16:17 -04:00
parent f8e700ed06
commit 0880c8319e
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Annex/BranchState.hs
View file

@ -16,11 +16,9 @@ import qualified Annex
getState :: Annex BranchState getState :: Annex BranchState
getState = Annex.getState Annex.branchstate getState = Annex.getState Annex.branchstate
setState :: BranchState -> Annex ()
setState state = Annex.changeState $ \s -> s { Annex.branchstate = state }
changeState :: (BranchState -> BranchState) -> Annex () changeState :: (BranchState -> BranchState) -> Annex ()
changeState changer = setState =<< changer <$> getState changeState changer = Annex.changeState $ \s ->
s { Annex.branchstate = changer (Annex.branchstate s) }
{- Runs an action to check that the index file exists, if it's not been {- Runs an action to check that the index file exists, if it's not been
- checked before in this run of git-annex. -} - checked before in this run of git-annex. -}