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

display of last fsck time

Browse source
This commit is contained in:
Joey Hess 2013-10-14 16:05:10 -04:00
parent 5e891672e5
commit 3989ad91e6
3 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/WebApp/Configurators/Fsck.hs
View file

@ -112,6 +112,12 @@ runFsckForm new activity = case activity of
defaultFsck :: ScheduledActivity defaultFsck :: ScheduledActivity
defaultFsck = ScheduledSelfFsck (Schedule Daily AnyTime) (Duration $ 60*60) defaultFsck = ScheduledSelfFsck (Schedule Daily AnyTime) (Duration $ 60*60)
showFsckStatus :: ScheduledActivity -> Widget
showFsckStatus activity = do
m <- liftAnnex getLastRunTimes
let lastrun = M.lookup activity m
$(widgetFile "configurators/fsck/status")
getConfigFsckR :: Handler Html getConfigFsckR :: Handler Html
getConfigFsckR = postConfigFsckR getConfigFsckR = postConfigFsckR
postConfigFsckR :: Handler Html postConfigFsckR :: Handler Html

2
templates/configurators/fsck.hamlet
View file

@ -14,6 +14,8 @@
Currently scheduled checks: Currently scheduled checks:
$forall check <- checks $forall check <- checks
^{showFsckForm False check} ^{showFsckForm False check}
<div style="margin-left: 5em">
^{showFsckStatus check}
<p> <p>
Add a check: Add a check:
^{showFsckForm True defaultFsck} ^{showFsckForm True defaultFsck}

5
templates/configurators/fsck/status.hamlet Normal file
View file

@ -0,0 +1,5 @@
<i>
$maybe t <- lastrun
(last run: #{show t})
$nothing
(not yet run)