summaryrefslogtreecommitdiff
path: root/Git
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-02-08 14:47:57 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-02-08 14:47:57 -0400
commit616dc248d07f9b1e6ca7406262df01ec9f07f706 (patch)
tree22ab5c8be24aea90d57774313d78ab1999765ed0 /Git
parent5576dd93da0fe8224581d04e5668314c089304ea (diff)
remove workaround
This was needed when absNormPath was not being used on Windows, since path normalization includes removing ./
Diffstat (limited to 'Git')
-rw-r--r--Git/FilePath.hs9
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