diff options
Diffstat (limited to 'Logs/Location.hs')
| -rw-r--r-- | Logs/Location.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Logs/Location.hs b/Logs/Location.hs index 27b4d709e..588962bc5 100644 --- a/Logs/Location.hs +++ b/Logs/Location.hs @@ -68,7 +68,7 @@ logFile key = hashDirLower key ++ keyFile key ++ ".log" {- Converts a log filename into a key. -} logFileKey :: FilePath -> Maybe Key logFileKey file - | end == ".log" = fileKey beginning + | ext == ".log" = fileKey base | otherwise = Nothing where - (beginning, end) = splitAt (length file - 4) file + (base, ext) = splitAt (length file - 4) file |