Commit b8205391 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Use do notation to combine Rules.

parent 010fb8c1
......@@ -20,13 +20,13 @@ main = shakeArgsWith options CmdLineFlag.cmdFlags $ \cmdLineFlags targets -> do
else want targets >> withoutActions rules
where
rules :: Rules ()
rules = mconcat
[ Rules.Clean.cleanRules
, Rules.Oracles.oracleRules
, Rules.Selftest.selftestRules
, Rules.Test.testRules
, Rules.buildRules
, Rules.topLevelTargets ]
rules = do
Rules.Clean.cleanRules
Rules.Oracles.oracleRules
Rules.Selftest.selftestRules
Rules.Test.testRules
Rules.buildRules
Rules.topLevelTargets
options = shakeOptions
{ shakeChange = ChangeModtimeAndDigest
, shakeFiles = Base.shakeFilesPath
......
......@@ -67,12 +67,12 @@ packageRules = do
Rules.Register.registerPackage resources context
buildRules :: Rules ()
buildRules = mconcat
[ Rules.Cabal.cabalRules
, Rules.Generate.generateRules
, Rules.Generate.copyRules
, Rules.Gmp.gmpRules
, Rules.Libffi.libffiRules
, Rules.Perl.perlScriptRules
, Rules.Setup.setupRules
, Rules.packageRules ]
buildRules = do
Rules.Cabal.cabalRules
Rules.Generate.generateRules
Rules.Generate.copyRules
Rules.Gmp.gmpRules
Rules.Libffi.libffiRules
Rules.Perl.perlScriptRules
Rules.Setup.setupRules
Rules.packageRules
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment