diff options
Diffstat (limited to 'LocationLog.hs')
-rw-r--r-- | LocationLog.hs | 2 |
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 |