From c860d9e9716510d257a6f348e1740ff1a4fa3a56 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 23 Jan 2014 15:09:43 -0400
Subject: add webapp UI to manage unused files

---
 Logs/Unused.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'Logs/Unused.hs')

diff --git a/Logs/Unused.hs b/Logs/Unused.hs
index cdfcd2165..0af319f04 100644
--- a/Logs/Unused.hs
+++ b/Logs/Unused.hs
@@ -20,9 +20,10 @@ module Logs.Unused (
 	updateUnusedLog,
 	readUnusedLog,
 	readUnusedMap,
+	dateUnusedLog,
 	unusedKeys,
+	unusedKeys',
 	setUnusedKeys,
-	unusedKeys'
 ) where
 
 import qualified Data.Map as M
@@ -88,6 +89,11 @@ readUnusedLog prefix = do
 readUnusedMap :: FilePath -> Annex UnusedMap
 readUnusedMap = log2map <$$> readUnusedLog
 
+dateUnusedLog :: FilePath -> Annex (Maybe UTCTime)
+dateUnusedLog prefix = do
+	f <- fromRepo $ gitAnnexUnusedLog prefix
+	liftIO $ catchMaybeIO $ getModificationTime f
+
 {- Set of unused keys. This is cached for speed. -}
 unusedKeys :: Annex (S.Set Key)
 unusedKeys = maybe (setUnusedKeys =<< unusedKeys') return
-- 
cgit v1.2.3