[commit: ghc] ghc-7.8: Kill whitespace after cpp's `-I` flag (5944331)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : ghc-7.8
Link       : http://ghc.haskell.org/trac/ghc/changeset/5944331dfcbd703f6a1a249406a2f4476749a6e1/ghc

>---------------------------------------------------------------

commit 5944331dfcbd703f6a1a249406a2f4476749a6e1
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date:   Mon Apr 21 16:55:11 2014 +0200

    Kill whitespace after cpp's `-I` flag
    
    This clean-up is in a similiar spirit as 574ef4293b8676.
    
    Signed-off-by: Herbert Valerio Riedel <hvr at gnu.org>
    (cherry picked from commit 4ab8fc55eb6119dbba2f487c5a01d30a7c6ae113)


>---------------------------------------------------------------

5944331dfcbd703f6a1a249406a2f4476749a6e1
 compiler/main/DriverPipeline.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index 2816c94..b93cef1 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