add config page for fsck, and alert with button when a fsck is running
This commit is contained in:
parent
18f4d1b400
commit
e9745f2da2
12 changed files with 74 additions and 23 deletions
17
Assistant/WebApp/Configurators/Fsck.hs
Normal file
17
Assistant/WebApp/Configurators/Fsck.hs
Normal 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"
|
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue