From d5e0cb2d1e58cf67d33b33cdeb0b9de443164255 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 20 Nov 2013 15:48:29 -0400 Subject: tighten up invalid HEAD detection Must contains "ref: refs/" or git rejects it --- Git/Repair.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Git') diff --git a/Git/Repair.hs b/Git/Repair.hs index c21d35d..7945bcb 100644 --- a/Git/Repair.hs +++ b/Git/Repair.hs @@ -467,7 +467,7 @@ preRepair g = do writeFile headfile "ref: refs/heads/master" where headfile = localGitDir g "HEAD" - validhead s = "ref: " `isPrefixOf` s || isJust (extractSha s) + validhead s = "ref: refs/" `isPrefixOf` s || isJust (extractSha s) {- Put it all together. -} runRepair :: Bool -> Repo -> IO (Bool, MissingObjects, [Branch]) -- cgit v1.2.3