add config page for fsck, and alert with button when a fsck is running

This commit is contained in:
Joey Hess 2013-10-10 18:02:33 -04:00
parent 18f4d1b400
commit e9745f2da2
12 changed files with 74 additions and 23 deletions

View file

@ -81,7 +81,7 @@ finishRemovingRemote :: UrlRenderer -> UUID -> Assistant ()
#ifdef WITH_WEBAPP
finishRemovingRemote urlrenderer uuid = do
desc <- liftAnnex $ Remote.prettyUUID uuid
button <- mkAlertButton (T.pack "Finish deletion process") urlrenderer $
button <- mkAlertButton True (T.pack "Finish deletion process") urlrenderer $
FinishDeleteRepositoryR uuid
void $ addAlert $ remoteRemovalAlert desc button
#else