add logFile

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

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"