Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
obsidiansystems
GHC
Commits
ed481295
Commit
ed481295
authored
Jun 30, 2000
by
panne
Browse files
[project @ 2000-06-30 19:12:21 by panne]
Hackily quote -#include options before passing them to mkdependHS
parent
a4b4ad24
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/driver/Main.hs
View file @
ed481295
...
...
@@ -1202,11 +1202,9 @@ newTempName extn = do
do_mkdependHS
::
[
String
]
->
[
String
]
->
IO
()
do_mkdependHS
cmd_opts
srcs
=
do
-- # They're not (currently) needed, but we need to quote any -#include options
-- foreach (@Cmd_opts) {
-- s/-#include.*$/'$&'/g;
-- };
-- HACK
let
quote_include_opt
o
|
prefixMatch
"-#include"
o
=
"'"
++
o
++
"'"
|
otherwise
=
o
mkdependHS
<-
readIORef
pgm_dep
mkdependHS_opts
<-
getOpts
opt_dep
...
...
@@ -1216,7 +1214,7 @@ do_mkdependHS cmd_opts srcs = do
(
unwords
(
mkdependHS
:
mkdependHS_opts
++
hs_src_cpp_opts
++
(
"--"
:
cmd_opts
)
++
(
"--"
:
map
quote_include_opt
cmd_opts
)
++
(
"--"
:
srcs
)
))
...
...
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