summaryrefslogtreecommitdiff
path: root/Utility/Path.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-01-13 12:36:53 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-01-13 12:36:53 -0400
commit7c0df1f9205d1cd8df09cbad40dfa20a490dad2b (patch)
tree76cbbcadfa877be8a3daae7ba23443e4092959b9 /Utility/Path.hs
parentc5c97062132407dcbd2978d966da4b74aef2faf5 (diff)
remove now unused toCygPath
Diffstat (limited to 'Utility/Path.hs')
-rw-r--r--Utility/Path.hs19
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 '/'
-