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

Drop unused predicates notBuilder and builders.

parent ac4dab04
......@@ -51,8 +51,8 @@ appendCcArgs :: [String] -> Settings
appendCcArgs args = do
stage <- asks getStage
mconcat [ builder (Gcc stage) ? append args
, builder GhcCabal ? appendSub "--configure-option=CFLAGS" args
, builder GhcCabal ? appendSub "--gcc-options" args ]
, builder GhcCabal ? appendSub "--configure-option=CFLAGS" args
, builder GhcCabal ? appendSub "--gcc-options" args ]
-- packageData :: Arity -> String -> Settings
-- packageData arity key =
......
module Switches (
IntegerLibraryImpl (..), integerLibraryImpl,
notStage, stage0, stage1, stage2, builders, notBuilder,
notStage, stage0, stage1, stage2,
supportsPackageKey, targetPlatforms, targetPlatform,
targetOss, targetOs, notTargetOs,
targetArchs, dynamicGhcPrograms, ghcWithInterpreter,
......@@ -9,7 +9,6 @@ module Switches (
) where
import Base
import Oracles.Builder
import Expression
-- Support for multiple integer library implementations
......@@ -31,12 +30,6 @@ stage1 = stage Stage1
stage2 :: Predicate
stage2 = stage Stage2
builders :: [Builder] -> Predicate
builders = liftM or . sequence . map builder
notBuilder :: Builder -> Predicate
notBuilder = liftM not . builder
-- Predicates based on configuration files
supportsPackageKey :: Predicate
supportsPackageKey = configKeyYes "supports-package-key"
......
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