From dcfb24e5b5764c8a7bde0a1410022a903ba3c99b Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 9 Oct 2010 22:14:13 -0400
Subject: [PATCH] add logFile

---
 GitRepo.hs     | 2 +-
 LocationLog.hs | 8 ++++++++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/GitRepo.hs b/GitRepo.hs
index f1372bf3a1..01e6746aef 100644
--- a/GitRepo.hs
+++ b/GitRepo.hs
@@ -11,7 +11,7 @@ import Data.String.Utils
  - relative to a git repository directory (which must be absolute).
  - This is the same form displayed and used by git. -}
 gitRelative :: String -> String -> String
-gitRelative file repo = drop (length absrepo) absfile
+gitRelative repo file = drop (length absrepo) absfile
 	where
 		-- normalize both repo and file, so that repo
 		-- will be substring of file
diff --git a/LocationLog.hs b/LocationLog.hs
index c756a17b05..ab109460ad 100644
--- a/LocationLog.hs
+++ b/LocationLog.hs
@@ -19,6 +19,7 @@ module LocationLog where
 import Data.DateTime
 import System.IO
 import System.Posix.IO
+import GitRepo
 
 data LogLine = LogLine {
 	date :: DateTime,
@@ -79,3 +80,10 @@ logNow :: String -> String -> IO LogLine
 logNow repo file = do
 	now <- getCurrentTime
 	return $ LogLine now repo file
+
+{- Returns the filename of the log file for a given annexed file. -}
+logFile :: String -> IO String
+logFile annexedFile = do
+	repo <- repoTop
+	return $ repo ++ "/.git-annex/" ++ 
+		(gitRelative repo annexedFile) ++ ".log"