Commit 738bac8c authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Clean up.

parent 00de7989
......@@ -6,8 +6,8 @@ import Predicates (builder, package)
alexArgs :: Args
alexArgs = builder Alex ? do
file <- getFile
src <- getSource
file <- getFile
mconcat [ arg "-g"
, package compiler ? arg "--latin1"
, arg src
......
module Settings.Builders.GhcCabal (
cabalArgs, ghcCabalHsColourArgs, bootPackageDbArgs, customPackageArgs
cabalArgs, ghcCabalHsColourArgs, bootPackageDbArgs, customPackageArgs,
ccArgs, ccWarnings, argStagedSettingList
) where
import Expression
......@@ -54,6 +55,7 @@ libraryArgs = do
then "--enable-shared"
else "--disable-shared" ]
-- TODO: LD_OPTS?
configureArgs :: Args
configureArgs = do
let conf key = appendSubD $ "--configure-option=" ++ key
......@@ -94,7 +96,11 @@ packageConstraints = stage0 ? do
-- TODO: should be in a different file
-- TODO: put all validating options together in one file
ccArgs :: Args
ccArgs = validating ? do
ccArgs = validating ? ccWarnings
-- TODO: should be in a different file
ccWarnings :: Args
ccWarnings = do
let notClang = fmap not gccIsClang
mconcat [ arg "-Werror"
, arg "-Wall"
......
......@@ -5,8 +5,8 @@ import Predicates (builder)
happyArgs :: Args
happyArgs = builder Happy ? do
file <- getFile
src <- getSource
file <- getFile
mconcat [ arg "-agc"
, arg "--strict"
, arg src
......
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