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

1 files changed, 1 insertions, 1 deletions

diff --git a/LocationLog.hs b/LocationLog.hs
index 7497d865b..6d52f4bdd 100644
--- a/LocationLog.hs
+++ b/LocationLog.hs
@@ -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. -}