Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
7251944b
Commit
7251944b
authored
Aug 18, 2008
by
Simon Marlow
Browse files
use System.FilePath's isSearchPathSeparator instead of our own
parent
e4f46f5d
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/utils/Util.lhs
View file @
7251944b
...
...
@@ -93,7 +93,7 @@ import Control.Monad ( unless )
import System.IO.Error as IO ( catch, isDoesNotExistError )
import System.Directory ( doesDirectoryExist, createDirectory,
getModificationTime )
import System.FilePath
hiding ( searchPathSeparator )
import System.FilePath
import Data.Char ( isUpper, isAlphaNum, isSpace, ord, isDigit )
import Data.Ratio ( (%) )
import System.Time ( ClockTime )
...
...
@@ -874,17 +874,7 @@ parseSearchPath path = split path
#endif
_ -> chunk'
(chunk', rest') = break (==searchPathSeparator) s
-- | A platform-specific character used to separate search path strings in
-- environment variables. The separator is a colon (\":\") on Unix and
-- Macintosh, and a semicolon (\";\") on the Windows operating system.
searchPathSeparator :: Char
#if mingw32_HOST_OS || mingw32_TARGET_OS
searchPathSeparator = ';'
#else
searchPathSeparator = ':'
#endif
(chunk', rest') = break isSearchPathSeparator s
data Direction = Forwards | Backwards
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment