diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-04-21 16:55:11 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-04-21 17:18:17 +0200 |
| commit | 4ab8fc55eb6119dbba2f487c5a01d30a7c6ae113 (patch) | |
| tree | 6a7b0870fbc9f94c1ff5b37ee865e69ebda99805 | |
| parent | 77ea2eb0ab36d1a610269f6737b509b6f6a376fa (diff) | |
| download | haskell-4ab8fc55eb6119dbba2f487c5a01d30a7c6ae113.tar.gz | |
Kill whitespace after cpp's `-I` flag
This clean-up is in a similiar spirit as 574ef4293b8676.
Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 2816c943fb..b93cef1fba 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -1045,7 +1045,7 @@ runPhase (RealPhase cc_phase) input_fn dflags -- files; this is the Value Add(TM) that using ghc instead of -- gcc gives you :) pkg_include_dirs <- liftIO $ getPackageIncludePath dflags pkgs - let include_paths = foldr (\ x xs -> "-I" : x : xs) [] + let include_paths = foldr (\ x xs -> ("-I" ++ x) : xs) [] (cmdline_include_paths ++ pkg_include_dirs) let gcc_extra_viac_flags = extraGccViaCFlags dflags |