add loggedKeys

1 files changed, 9 insertions, 0 deletions

diff --git a/Locations.hs b/Locations.hs
index 6c413a218..f263ea526 100644
--- a/Locations.hs
+++ b/Locations.hs
@@ -21,6 +21,7 @@ module Locations (
 	isLinkToAnnex,
 	logFile,
 	logFileOld,
+	logFileKey,
 	hashDirMixed,
 
 	prop_idempotent_fileKey
@@ -127,6 +128,14 @@ logFile' :: (Key -> FilePath) -> Git.Repo -> Key -> String
 logFile' hasher repo key =
 	gitStateDir repo ++ hasher key ++ keyFile key ++ ".log"
 
+{- Converts a log filename into a key. -}
+logFileKey :: FilePath -> Maybe Key
+logFileKey file
+	| end == ".log" = readKey beginning
+	| otherwise = Nothing
+	where
+		(beginning, end) = splitAt (length file - 4) file
+
 {- Converts a key into a filename fragment.
  -
  - Escape "/" in the key name, to keep a flat tree of files and avoid