summaryrefslogtreecommitdiff
path: root/Logs.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-10-09 15:09:26 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-10-09 15:09:26 -0400
commitadb4603fbf69d8638d925627e0c85b473a3fef05 (patch)
tree789d7d7a1075d6d947143f391eca86a58f1f46ea /Logs.hs
parenta26b7127d4cc8b2a5e15ef662ab2793dbf9e7919 (diff)
indent with tabs not spaces
Found these with: git grep "^ " $(find -type f -name \*.hs) |grep -v ': where' Unfortunately there is some inline hamlet that cannot use tabs for indentation. Also, Assistant/WebApp/Bootstrap3.hs is a copy of a module and so I'm leaving it as-is.
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