From adb4603fbf69d8638d925627e0c85b473a3fef05 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 9 Oct 2014 15:09:26 -0400 Subject: 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. --- Logs.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Logs.hs') 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 -- cgit v1.2.3