diff options
| -rw-r--r-- | Git/FilePath.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/Git/FilePath.hs b/Git/FilePath.hs index 4189244fc..a128277dc 100644 --- a/Git/FilePath.hs +++ b/Git/FilePath.hs @@ -48,8 +48,7 @@ asTopFilePath file = TopFilePath file - it internally. - - On Windows, git uses '/' to separate paths stored in the repository, - - despite Windows using '\'. Also, git on windows dislikes paths starting - - with "./" or ".\". + - despite Windows using '\'. - -} type InternalGitPath = String @@ -58,11 +57,7 @@ toInternalGitPath :: FilePath -> InternalGitPath #ifndef mingw32_HOST_OS toInternalGitPath = id #else -toInternalGitPath p = - let p' = replace "\\" "/" p - in if "./" `isPrefixOf` p' - then dropWhile (== '/') (drop 1 p') - else p' +toInternalGitPath = replace "\\" "/" #endif fromInternalGitPath :: InternalGitPath -> FilePath |