Fix CI regression, minor revision.
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Tue, 19 Jan 2016 09:34:35 +0000 (09:34 +0000)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Tue, 19 Jan 2016 09:34:35 +0000 (09:34 +0000)
See #183.

cfg/system.config.in
src/Rules/Gmp.hs
src/Rules/Libffi.hs
src/Settings/Builders/Hsc2Hs.hs

index 0eb775a..43730a2 100644 (file)
@@ -106,7 +106,7 @@ iconv-lib-dir     = @ICONV_LIB_DIRS@
 gmp-include-dir   = @GMP_INCLUDE_DIRS@\r
 gmp-lib-dir       = @GMP_LIB_DIRS@\r
 \r
-use-system-ffi     = @UseSystemLibFFI@\r
+use-system-ffi    = @UseSystemLibFFI@\r
 ffi-include-dir   = @FFIIncludeDir@\r
 ffi-lib-dir       = @FFILibDir@\r
 \r
index 702e645..b6bfdf0 100644 (file)
@@ -64,8 +64,8 @@ configureIntGmpArguments :: Action [String]
 configureIntGmpArguments = do
     includes      <- setting GmpIncludeDir
     libs          <- setting GmpLibDir
-    return $ map ("--with-gmp-includes=" ++) [includes]
-          ++ map ("--with-gmp-libraries=" ++) [libs]
+    return $ map ("--with-gmp-includes="  ++) (words includes)
+          ++ map ("--with-gmp-libraries=" ++) (words libs)
 
 -- TODO: we rebuild gmp every time.
 gmpRules :: Rules ()
index 97ebc2d..0f4e05a 100644 (file)
@@ -71,13 +71,13 @@ libffiRules :: Rules ()
 libffiRules = do
     libffiDependencies &%> \_ -> do
         when trackBuildSystem $ need [sourcePath -/- "Rules/Libffi.hs"]
-        ffi_header_dir <- setting FfiIncludeDir
-        use_system_ffi <- flag UseSystemFfi
-        if use_system_ffi
+        ffiHeaderDir <- setting FfiIncludeDir
+        useSystemFfi <- flag UseSystemFfi
+        if useSystemFfi
         then do
           putBuild "| System supplied FFI library will be used"
           forM_ ["ffi.h", "ffitarget.h"] $ \file -> do
-              let src = ffi_header_dir  -/- file
+              let src = ffiHeaderDir  -/- file
               copyFile src (rtsBuildPath -/- file)
           putSuccess $ "| Successfully copied system supplied FFI library header files"
         else do
index 4529af8..ffa3b1a 100644 (file)
@@ -32,7 +32,7 @@ hsc2hsBuilderArgs = builder Hsc2Hs ? do
     mconcat [ arg $ "--cc=" ++ ccPath
             , arg $ "--ld=" ++ ccPath
             , notM windowsHost ? arg "--cross-safe"
-            , append $ map ("-I"       ++) [gmpDir]
+            , append . map ("-I"       ++) $ words gmpDir
             , append $ map ("--cflag=" ++) cFlags
             , append $ map ("--lflag=" ++) lFlags
             , notStage0 ? crossCompiling ? arg "--cross-compile"