Bugfix: Forgot to de-escape keys when upgrading.

Could result in bad location log data for keys that contain [&:%] in their
names. (A workaround for this problem is to run git annex fsck.)

`git annex unused --from remote` could also run into the broken code.

1 files changed, 1 insertions, 1 deletions

diff --git a/LocationLog.hs b/LocationLog.hs
index 28b423e2f..aab817f3f 100644
--- a/LocationLog.hs
+++ b/LocationLog.hs
@@ -60,7 +60,7 @@ logFile key = hashDirLower key ++ keyFile key ++ ".log"
 {- Converts a log filename into a key. -}
 logFileKey :: FilePath -> Maybe Key
 logFileKey file
-	| end == ".log" = readKey beginning
+	| end == ".log" = fileKey beginning
 	| otherwise = Nothing
 	where
 		(beginning, end) = splitAt (length file - 4) file