Kill whitespace after cpp's `-I` flag
authorHerbert Valerio Riedel <hvr@gnu.org>
Mon, 21 Apr 2014 14:55:11 +0000 (16:55 +0200)
committerHerbert Valerio Riedel <hvr@gnu.org>
Mon, 21 Apr 2014 15:18:17 +0000 (17:18 +0200)
This clean-up is in a similiar spirit as 574ef4293b8676.

Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
compiler/main/DriverPipeline.hs

index 2816c94..b93cef1 100644 (file)
@@ -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