diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-10 15:48:24 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-10 15:48:24 -0400 |
| commit | e67eccd6e9b9b25873237c18e959a0604afb62e3 (patch) | |
| tree | 6b16d8766ac797cbde41bcf3832dac82ee827362 /Git/Repair.hs | |
| parent | 2a8c8cf0078fac03839f64ce3f1a94a03c1a686b (diff) | |
update
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 |