summaryrefslogtreecommitdiff
path: root/Logs.hs
diff options
context:
space:
mode:
authorJoey Hess <joey@kitenet.net>2014-10-09 14:53:13 -0400
committerJoey Hess <joey@kitenet.net>2014-10-09 15:09:11 -0400
commit7b50b3c057068e177d097f56dcbb03d3e2267e50 (patch)
treebfc57c1afbd1e1b5b87737ecac60203fa88042bd /Logs.hs
parent8f69d55f03f1317c74ff70940df72bbb8c7266cf (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.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/Logs.hs b/Logs.hs
index ff7b7dcf06..1b7a61efef 100644
--- a/Logs.hs
+++ b/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