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.
This commit is contained in:
parent
7b50b3c057
commit
9fd95d9025
19 changed files with 49 additions and 49 deletions
6
Logs.hs
6
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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue