diff options
Diffstat (limited to 'Git/Repair.hs')
-rw-r--r-- | Git/Repair.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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]) |