From 3989ad91e6b10bd411fa7dfaf6e57fbfd2b7af08 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 14 Oct 2013 16:05:10 -0400
Subject: [PATCH] display of last fsck time

---
 Assistant/WebApp/Configurators/Fsck.hs     | 6 ++++++
 templates/configurators/fsck.hamlet        | 2 ++
 templates/configurators/fsck/status.hamlet | 5 +++++
 3 files changed, 13 insertions(+)
 create mode 100644 templates/configurators/fsck/status.hamlet

diff --git a/Assistant/WebApp/Configurators/Fsck.hs b/Assistant/WebApp/Configurators/Fsck.hs
index dc1d3b0095..6004d08fe2 100644
--- a/Assistant/WebApp/Configurators/Fsck.hs
+++ b/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
diff --git a/templates/configurators/fsck.hamlet b/templates/configurators/fsck.hamlet
index 736af16095..d7b3b5910b 100644
--- a/templates/configurators/fsck.hamlet
+++ b/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}
diff --git a/templates/configurators/fsck/status.hamlet b/templates/configurators/fsck/status.hamlet
new file mode 100644
index 0000000000..b27760ac65
--- /dev/null
+++ b/templates/configurators/fsck/status.hamlet
@@ -0,0 +1,5 @@
+<i>
+  $maybe t <- lastrun
+    (last run: #{show t})
+  $nothing
+    (not yet run)