Commit 89b7171c authored by thomie's avatar thomie
Browse files

Remove double quotes around searchPath elements on Windows

parent 7ab78f95
......@@ -180,6 +180,7 @@ isExtSeparator = (== extSeparator)
-- > Posix: splitSearchPath "File1::File2:File3" == ["File1",".","File2","File3"]
-- > Windows: splitSearchPath "File1;File2;File3" == ["File1","File2","File3"]
-- > Windows: splitSearchPath "File1;;File2;File3" == ["File1","File2","File3"]
-- > Windows: splitSearchPath "File1;\"File2\";File3" == ["File1","File2","File3"]
splitSearchPath :: String -> [FilePath]
splitSearchPath = f
where
......@@ -188,6 +189,7 @@ splitSearchPath = f
(pre, _:post) -> g pre ++ f post
g "" = ["." | isPosix]
g ('\"':x@(_:_)) | isWindows && last x == '\"' = [init x]
g x = [x]
......
......@@ -6,7 +6,9 @@ _Note: below all `FilePath` values are unquoted, so `\\` really means two backsl
* Bundled with GHC 7.10.1
* Semantic change: `joinDrive /foo bar` now returns `/foo/bar`, instead of `/foobar`
* Semantic change: `joinDrive /foo bar` now returns `/foo/bar`, instead of `/foobar`
* Semantic change: on Windows, `splitSearchPath File1;\"File 2\"` now returns `[File1,File2]` instead of `[File1,\"File2\"]`
* Bug fix: on Posix systems, `normalise //home` now returns `/home`, instead of `//home`
......
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment