summaryrefslogtreecommitdiff
path: root/Logs.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Logs.hs')
-rw-r--r--Logs.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Logs.hs b/Logs.hs
index 1b7a61efe..a4522bd92 100644
--- a/Logs.hs
+++ b/Logs.hs
@@ -90,11 +90,11 @@ locationLogFile key = hashDirLower key ++ keyFile key ++ ".log"
locationLogFileKey :: FilePath -> Maybe Key
locationLogFileKey path
| ["remote", "web"] `isPrefixOf` splitDirectories dir = Nothing
- | ext == ".log" = fileKey base
- | otherwise = Nothing
+ | ext == ".log" = fileKey base
+ | otherwise = Nothing
where
(dir, file) = splitFileName path
- (base, ext) = splitAt (length file - 4) file
+ (base, ext) = splitAt (length file - 4) file
{- The filename of the url log for a given key. -}
urlLogFile :: Key -> FilePath