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

cleanup on failed upgrade

Browse source
This commit is contained in:
Joey Hess 2013-11-24 14:04:03 -04:00
parent 542ae4a855
commit 5ff5d0a854
3 changed files with 20 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Repair.hs
View file

@ -46,7 +46,7 @@ repairWhenNecessary urlrenderer u mrmt fsckresults
unless ok $ do
button <- mkAlertButton True (T.pack "Click Here") urlrenderer $
RepairRepositoryR u
void $ addAlert $ brokenRepositoryAlert button
void $ addAlert $ brokenRepositoryAlert [button]
#endif
return ok
| otherwise = return False