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

UI tweaks

Browse source
This commit is contained in:
Joey Hess 2013-10-22 16:30:23 -04:00
parent d345e5b52f
commit 1eaec2f9aa
6 changed files with 15 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Threads/Cronner.hs
View file

@ -192,7 +192,7 @@ runActivity' urlrenderer (ScheduledSelfFsck _ d) = do
when (Git.Fsck.foundBroken fsckresults) $ do
u <- liftAnnex getUUID
liftAnnex $ writeFsckResults u fsckresults
button <- mkAlertButton True (T.pack "Repair") urlrenderer $
button <- mkAlertButton True (T.pack "Click Here") urlrenderer $
RepairRepositoryR u
void $ addAlert $ brokenRepositoryAlert button
mapM_ reget =<< liftAnnex (dirKeys gitAnnexBadDir)