mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

assistant: Automatically repair damanged git repository, if it can be done without losing data.

Browse source
This commit is contained in:
Joey Hess 2013-10-26 17:16:29 -04:00
parent a1b1b5ef52
commit b48aaa22d0
4 changed files with 49 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/Repair.hs
View file

@ -25,7 +25,7 @@ getRepairRepositoryRunR :: UUID -> Handler Html
getRepairRepositoryRunR = postRepairRepositoryRunR
postRepairRepositoryRunR :: UUID -> Handler Html
postRepairRepositoryRunR u = do
liftAssistant $ runRepair u
void $ liftAssistant $ runRepair u True
page "Repair repository" Nothing $ do
let repolist = repoListDisplay $
mainRepoSelector { nudgeAddMore = True }