do not need to use Git.relative here (it is a no-op in this case anyway)

This commit is contained in:
Joey Hess 2010-11-28 16:31:20 -04:00
parent 653ad35a9f
commit 52ec6e748d

View file

@ -124,7 +124,7 @@ logNow s u = do
{- Returns the filename of the log file for a given key. -}
logFile :: Git.Repo -> Key -> String
logFile repo key =
gitStateDir repo ++ Git.relative repo (keyFile key) ++ ".log"
gitStateDir repo ++ keyFile key ++ ".log"
{- Returns a list of repository UUIDs that, according to the log, have
- the value of a key. -}