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 | a26b7127d4cc8b2a5e15ef662ab2793dbf9e7919 (patch) | |
| tree | 95fb3ff9231bffe68f99b02d872ee308b40d0bc8 /Utility/Path.hs | |
| parent | be9989b76db21772118f8893ea00d22b6365d301 (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 'Utility/Path.hs')
| -rw-r--r-- | Utility/Path.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Utility/Path.hs b/Utility/Path.hs index 99c9438bf..9035cbc49 100644 --- a/Utility/Path.hs +++ b/Utility/Path.hs @@ -235,11 +235,11 @@ toCygPath p | null drive = recombine parts | otherwise = recombine $ "/cygdrive" : driveletter drive : parts where - (drive, p') = splitDrive p + (drive, p') = splitDrive p parts = splitDirectories p' - driveletter = map toLower . takeWhile (/= ':') + driveletter = map toLower . takeWhile (/= ':') recombine = fixtrailing . Posix.joinPath - fixtrailing s + fixtrailing s | hasTrailingPathSeparator p = Posix.addTrailingPathSeparator s | otherwise = s #endif @@ -272,7 +272,7 @@ fileNameLengthLimit dir = do sanitizeFilePath :: String -> FilePath sanitizeFilePath = map sanitize where - sanitize c + sanitize c | c == '.' = c | isSpace c || isPunctuation c || isSymbol c || isControl c || c == '/' = '_' | otherwise = c |