diff options
author | 2013-10-23 13:13:40 -0400 | |
---|---|---|
committer | 2013-10-23 13:19:37 -0400 | |
commit | 9ed8dd6be036e79e3ec7f5781b9f7b8864e1bc0e (patch) | |
tree | ba2d9f0ea9fe3eed88ac9ab0aa5e2133e14d13fa /git-recover-repository.hs | |
parent | b77b0848ee28093b63e3ab0d1ea494e430ffe58b (diff) |
minor
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 ) |