Commit ed481295 authored by panne's avatar panne
Browse files

[project @ 2000-06-30 19:12:21 by panne]

Hackily quote -#include options before passing them to mkdependHS
parent a4b4ad24
......@@ -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)
))
......
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