display of last fsck time
This commit is contained in:
parent
5e891672e5
commit
3989ad91e6
3 changed files with 13 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue