diff options
Diffstat (limited to 'Git/Repair.hs')
| -rw-r--r-- | Git/Repair.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Git/Repair.hs b/Git/Repair.hs index 56dfe4b8e..b8841fc7a 100644 --- a/Git/Repair.hs +++ b/Git/Repair.hs @@ -549,8 +549,8 @@ runRepair' fsckresult forced referencerepo g = do putStrLn "To force a recovery to a usable state, retry with the --force parameter." return (False, []) -successfulRepair :: (Bool, MissingObjects, [Branch]) -> Bool -successfulRepair = fst3 +successfulRepair :: (Bool, [Branch]) -> Bool +successfulRepair = fst safeReadFile :: FilePath -> IO String safeReadFile f = do |