add logFile

2 files changed, 9 insertions, 1 deletions

diff --git a/GitRepo.hs b/GitRepo.hs
index f1372bf3a..01e6746ae 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 c756a17b0..ab109460a 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"