diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-01-13 12:36:53 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-01-13 12:36:53 -0400 |
| commit | 7c0df1f9205d1cd8df09cbad40dfa20a490dad2b (patch) | |
| tree | 76cbbcadfa877be8a3daae7ba23443e4092959b9 /Utility/Path.hs | |
| parent | c5c97062132407dcbd2978d966da4b74aef2faf5 (diff) | |
remove now unused toCygPath
Diffstat (limited to 'Utility/Path.hs')
| -rw-r--r-- | Utility/Path.hs | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/Utility/Path.hs b/Utility/Path.hs index 6172629a5..e44975a1e 100644 --- a/Utility/Path.hs +++ b/Utility/Path.hs @@ -252,25 +252,6 @@ dotfile file where f = takeFileName file -{- Converts a DOS style path to a Cygwin style path. Only on Windows. - - Any trailing '\' is preserved as a trailing '/' -} -toCygPath :: FilePath -> FilePath -#ifndef mingw32_HOST_OS -toCygPath = id -#else -toCygPath p - | null drive = recombine parts - | otherwise = recombine $ "/cygdrive" : driveletter drive : parts - where - (drive, p') = splitDrive p - parts = splitDirectories p' - driveletter = map toLower . takeWhile (/= ':') - recombine = fixtrailing . Posix.joinPath - fixtrailing s - | hasTrailingPathSeparator p = Posix.addTrailingPathSeparator s - | otherwise = s -#endif - {- Converts a DOS style path to a msys2 style path. Only on Windows. - Any trailing '\' is preserved as a trailing '/' - |