mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

update

Browse source
This commit is contained in:
Joey Hess 2013-12-10 15:48:24 -04:00
parent c0ce3269e9
commit b37323d857
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Git/Repair.hs
View file

@ -549,8 +549,8 @@ runRepair' fsckresult forced referencerepo g = do
putStrLn "To force a recovery to a usable state, retry with the --force parameter." putStrLn "To force a recovery to a usable state, retry with the --force parameter."
return (False, []) return (False, [])
successfulRepair :: (Bool, MissingObjects, [Branch]) -> Bool successfulRepair :: (Bool, [Branch]) -> Bool
successfulRepair = fst3 successfulRepair = fst
safeReadFile :: FilePath -> IO String safeReadFile :: FilePath -> IO String
safeReadFile f = do safeReadFile f = do