diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-08 14:47:57 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-08 14:47:57 -0400 |
| commit | 616dc248d07f9b1e6ca7406262df01ec9f07f706 (patch) | |
| tree | 22ab5c8be24aea90d57774313d78ab1999765ed0 | |
| parent | 5576dd93da0fe8224581d04e5668314c089304ea (diff) | |
remove workaround
This was needed when absNormPath was not being used on Windows, since path
normalization includes removing ./
| -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 |