display of last fsck time

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

View file

@ -112,6 +112,12 @@ runFsckForm new activity = case activity of
defaultFsck :: ScheduledActivity
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 = postConfigFsckR
postConfigFsckR :: Handler Html