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

@ -0,0 +1,17 @@
{- git-annex assistant fsck configuration
-
- Copyright 2013 Joey Hess <joey@kitenet.net>
-
- Licensed under the GNU AGPL version 3 or higher.
-}
{-# LANGUAGE TypeFamilies, QuasiQuotes, TemplateHaskell, OverloadedStrings, FlexibleContexts #-}
{-# LANGUAGE CPP #-}
module Assistant.WebApp.Configurators.Fsck where
import Assistant.WebApp.Common
getConfigFsckR :: Handler Html
getConfigFsckR = page "Consistency checks" (Just Configuration) $ do
error "TODO"

View file

@ -55,7 +55,7 @@ checkCloudRepos :: UrlRenderer -> Remote -> Assistant ()
checkCloudRepos urlrenderer r =
unlessM (syncingToCloudRemote <$> getDaemonStatus) $ do
buddyname <- getBuddyName $ Remote.uuid r
button <- mkAlertButton "Add a cloud repository" urlrenderer $
button <- mkAlertButton True "Add a cloud repository" urlrenderer $
NeedCloudRepoR $ Remote.uuid r
void $ addAlert $ cloudRepoNeededAlert buddyname button
#else