fix some mixed space+tab indentation
This fixes all instances of " \t" in the code base. Most common case seems to be after a "where" line; probably vim copied the two space layout of that line. Done as a background task while listening to episode 2 of the Type Theory podcast.
This commit is contained in:
parent
8f69d55f03
commit
7b50b3c057
131 changed files with 242 additions and 242 deletions
8
Logs.hs
8
Logs.hs
|
@ -117,7 +117,7 @@ urlLogFileKey path
|
|||
| ext == urlLogExt = fileKey base
|
||||
| otherwise = Nothing
|
||||
where
|
||||
file = takeFileName path
|
||||
file = takeFileName path
|
||||
(base, ext) = splitAt (length file - extlen) file
|
||||
extlen = length urlLogExt
|
||||
|
||||
|
@ -144,7 +144,7 @@ chunkLogFileKey path
|
|||
| ext == chunkLogExt = fileKey base
|
||||
| otherwise = Nothing
|
||||
where
|
||||
file = takeFileName path
|
||||
file = takeFileName path
|
||||
(base, ext) = splitAt (length file - extlen) file
|
||||
extlen = length chunkLogExt
|
||||
|
||||
|
@ -176,10 +176,10 @@ prop_logs_sane dummykey = and
|
|||
, expect gotOtherLog (getLogVariety $ numcopiesLog)
|
||||
]
|
||||
where
|
||||
expect = maybe False
|
||||
expect = maybe False
|
||||
gotUUIDBasedLog UUIDBasedLog = True
|
||||
gotUUIDBasedLog _ = False
|
||||
gotNewUUIDBasedLog NewUUIDBasedLog = True
|
||||
gotNewUUIDBasedLog NewUUIDBasedLog = True
|
||||
gotNewUUIDBasedLog _ = False
|
||||
gotChunkLog (ChunkLog k) = k == dummykey
|
||||
gotChunkLog _ = False
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue