display of last fsck time

Assistant/WebApp/Configurators/Fsck.hs

@@ -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

templates/configurators/fsck.hamlet

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

templates/configurators/fsck/status.hamlet

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