diff options
Diffstat (limited to 'git-recover-repository.hs')
| -rw-r--r-- | git-recover-repository.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/git-recover-repository.hs b/git-recover-repository.hs index 556e2a39b..3e348f5bb 100644 --- a/git-recover-repository.hs +++ b/git-recover-repository.hs @@ -7,6 +7,7 @@ import System.Environment import qualified Data.Set as S +import Data.Tuple.Utils import Common import qualified Git @@ -35,7 +36,7 @@ main = do forced <- parseArgs g <- Git.Config.read =<< Git.CurrentRepo.get - ifM (fst <$> Git.Repair.runRepair forced g) + ifM (fst3 <$> Git.Repair.runRepair forced g) ( exitSuccess , exitFailure ) |