diff --git a/Cabal/Distribution/Simple/Build/PathsModule.hs b/Cabal/Distribution/Simple/Build/PathsModule.hs
index 05e4e2567378105b8213308bae7d72a0c25b8eca..950cc9ac4e515c5897cb028a9e68ea0e79d2e0a0 100644
--- a/Cabal/Distribution/Simple/Build/PathsModule.hs
+++ b/Cabal/Distribution/Simple/Build/PathsModule.hs
@@ -50,9 +50,9 @@ import Data.Maybe
 
 generate :: PackageDescription -> LocalBuildInfo -> String
 generate pkg_descr lbi =
-   let pragmas = ffi_pragmas + warning_pragmas
+   let pragmas = ffi_pragmas ++ warning_pragmas
 
-       ffi_pragmas =
+       ffi_pragmas
         | absolute = ""
         | supports_language_pragma =
           "{-# LANGUAGE ForeignFunctionInterface #-}\n"