From 7b50b3c057068e177d097f56dcbb03d3e2267e50 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 9 Oct 2014 14:53:13 -0400 Subject: 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. --- Logs.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Logs.hs') 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 -- cgit v1.2.3