check headRef not Branch.current

Support running v7 upgrade in a repo where there is no branch checked out,
but HEAD is set directly to some other ref.

This commit was sponsored by Jack Hill on Patreon.

doc/bugs/get_fails_to_place_v7_unlocked_file_content_into_the_file_tree_in_v7_in_repo_with_detached_HEAD.mdwn

@@ -54,3 +54,5 @@ as you can see the arg-test.sim is only 68 bytes, not 2MB or a symlink.
 
 
 [[!meta author=yoh]]
+
+> [[fixed|done]] --[[Joey]]

doc/bugs/get_fails_to_place_v7_unlocked_file_content_into_the_file_tree_in_v7_in_repo_with_detached_HEAD/comment_3_cd7cc008c3d37caa76416bd2452da90d._comment

@@ -0,0 +1,21 @@
+[[!comment format=mdwn
+ username="joey"
+ subject="""comment 3"""
+ date="2019-07-16T16:13:49Z"
+ content="""
+I notice that the keys database is not populated in the clone.
+
+Also, the upgrade does not display "scanning for unlocked files".
+And in Annex.WorkTree, we can see why:
+
+	scanUnlockedFiles = whenM (isJust <$> inRepo Git.Branch.current) $ do
+	        showSideAction "scanning for unlocked files"
+
+There is no current git branch in this case.
+
+That check was added in [[!commit 9b995954731e05727d77c7bff487af10da9cb4b9]]
+"only do scan when there's a branch, not in freshly created new repo"
+
+Since it does a ls-tree of HEAD, what it really ought to check for is that
+HEAD is set, which it's not in a fresh new repo. Done.
+"""]]