projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-01-12 13:36:30 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
main
/
DriverFlags.hs
diff --git
a/ghc/compiler/main/DriverFlags.hs
b/ghc/compiler/main/DriverFlags.hs
index
2787040
..
6d24d53
100644
(file)
--- a/
ghc/compiler/main/DriverFlags.hs
+++ b/
ghc/compiler/main/DriverFlags.hs
@@
-543,7
+543,9
@@
ignorePackage p =
-- -i on its own deletes the import paths
addImportPath "" = updDynFlags (\s -> s{importPaths = []})
-- -i on its own deletes the import paths
addImportPath "" = updDynFlags (\s -> s{importPaths = []})
-addImportPath p = updDynFlags (\s -> s{importPaths = p : importPaths s})
+addImportPath p = do
+ paths <- splitPathList p
+ updDynFlags (\s -> s{importPaths = importPaths s ++ paths})
-- we can only switch between HscC, HscAsmm, and HscILX with dynamic flags
-- (-fvia-C, -fasm, -filx respectively).
-- we can only switch between HscC, HscAsmm, and HscILX with dynamic flags
-- (-fvia-C, -fasm, -filx respectively).