diff options
author | Joey Hess <joey@kitenet.net> | 2014-10-09 14:53:13 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-10-09 15:09:11 -0400 |
commit | 7b50b3c057068e177d097f56dcbb03d3e2267e50 (patch) | |
tree | bfc57c1afbd1e1b5b87737ecac60203fa88042bd /Logs.hs | |
parent | 8f69d55f03f1317c74ff70940df72bbb8c7266cf (diff) |
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.
Diffstat (limited to 'Logs.hs')
-rw-r--r-- | Logs.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 |