[commit: ghc] wip/nfs-locking: simplify configureIntGmpArguments based on idea provided by Gabor Greif (86a3fe5)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:39:15 UTC 2017


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

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/86a3fe5f1e16ef919cf0145c0830f2ad7cd8586e/ghc

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

commit 86a3fe5f1e16ef919cf0145c0830f2ad7cd8586e
Author: Karel Gardas <karel.gardas at centrum.cz>
Date:   Wed Jan 13 23:31:29 2016 +0100

    simplify configureIntGmpArguments based on idea provided by Gabor Greif


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

86a3fe5f1e16ef919cf0145c0830f2ad7cd8586e
 src/Rules/Gmp.hs | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/src/Rules/Gmp.hs b/src/Rules/Gmp.hs
index f34f3f0..f6d6fe8 100644
--- a/src/Rules/Gmp.hs
+++ b/src/Rules/Gmp.hs
@@ -61,14 +61,9 @@ configureIntGmpArguments :: Action [String]
 configureIntGmpArguments = do
     includes      <- settingList GmpIncludeDirs
     libs          <- settingList GmpLibDirs
-    return ([]
-            ++ (if (not (null includes))
-                then map ((++) "--with-gmp-includes=") includes
-                else [])
-            ++ (if (not (null libs))
-                then map ((++) "--with-gmp-libraries=") libs
-                else [])
-           )
+    return $ map ("--with-gmp-includes=" ++) includes
+               ++ map ("--with-gmp-libraries=" ++) libs
+
 
 -- TODO: we rebuild gmp every time.
 gmpRules :: Rules ()



More information about the ghc-commits mailing list