diff options
| author | Joey Hess <joey@kitenet.net> | 2013-11-20 15:23:08 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-20 15:23:08 -0400 |
| commit | f1c5b8ceb3e05f7f397b52309a43719f68faecd3 (patch) | |
| tree | 05673ad01fe660192ee45610472e638ccd60f3ba | |
| parent | 62475e837dc531ed59723de64282739e79b4e922 (diff) | |
| download | git-repair-f1c5b8ceb3e05f7f397b52309a43719f68faecd3.tar.gz | |
reorg
| -rw-r--r-- | Git/Repair.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Git/Repair.hs b/Git/Repair.hs index c650958..fa5c8c9 100644 --- a/Git/Repair.hs +++ b/Git/Repair.hs @@ -481,9 +481,6 @@ runRepair forced g = do putStrLn "No problems found." return (True, S.empty, []) -successfulRepair :: (Bool, MissingObjects, [Branch]) -> Bool -successfulRepair = fst3 - runRepairOf :: FsckResults -> Bool -> Maybe FilePath -> Repo -> IO (Bool, MissingObjects, [Branch]) runRepairOf fsckresult forced referencerepo g = do missing <- cleanCorruptObjects fsckresult g @@ -578,3 +575,6 @@ runRepairOf fsckresult forced referencerepo g = do needforce stillmissing = do putStrLn "To force a recovery to a usable state, retry with the --force parameter." return (False, stillmissing, []) + +successfulRepair :: (Bool, MissingObjects, [Branch]) -> Bool +successfulRepair = fst3 |