From 46006fd6e5874939e491b12ef978901d8e1aae84 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 10 Apr 2015 15:16:17 -0400
Subject: simplify and make more atomic

---
 Annex/BranchState.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/Annex/BranchState.hs b/Annex/BranchState.hs
index 889a936b9..2885582cd 100644
--- a/Annex/BranchState.hs
+++ b/Annex/BranchState.hs
@@ -16,11 +16,9 @@ import qualified 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 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
  - checked before in this run of git-annex. -}
-- 
cgit v1.2.3