From f1c5b8ceb3e05f7f397b52309a43719f68faecd3 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 20 Nov 2013 15:23:08 -0400 Subject: reorg --- Git/Repair.hs | 6 +++--- 1 file 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 -- cgit v1.2.3