can't checkout adjusted branch while index is still locked

There's a race here, but entering an adjusted branch for the first time is
not something to do when a commit is being made at the same time. Although,
may want to prevent the assistant from committing while entering the
adjusted branch.

Annex/AdjustedBranch.hs

@@ -91,8 +91,8 @@ originalBranch = fmap fromAdjustedBranch <$> inRepo Git.Branch.current
 enterAdjustedBranch :: Adjustment -> Annex ()
 enterAdjustedBranch adj = go =<< originalBranch
   where
-	go (Just origbranch) = preventCommits $ do
-		adjbranch <- adjustBranch adj origbranch
+	go (Just origbranch) = do
+		adjbranch <- preventCommits $ adjustBranch adj origbranch
 		inRepo $ Git.Command.run
 			[ Param "checkout"
 			, Param $ fromRef $ Git.Ref.base $ adjbranch

doc/design/adjusted_branches.mdwn

@@ -342,3 +342,12 @@ like this, at its most simple:
 	-- Generate a version of the commit made on the filter branch
 	-- with the filtering of modified files reversed.
 	unfilteredCommit :: Filter -> Git.Commit -> Git.Commit
+
+## TODOs
+
+* Need a better command-line interface than `git annex adjust`,
+  that allows picking adjustments.
+* Interface in webapp to enable adjustments.
+* Entering an adjusted branch can race with commits to the current branch,
+  and so the assistant should not be running, or at least should have
+  commits disabled when entering it.