Commit 4ade862d authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Decompose Settings/Builders/Haddock.hs (see #60).

parent 49521c02
......@@ -43,19 +43,11 @@ haddockArgs = builder Haddock ? do
arg "--source-module=src/%{MODULE/./-}.html"
, specified HsColour ?
arg "--source-entity=src/%{MODULE/./-}.html\\#%{NAME}"
, customPackageArgs
, append =<< getInputs
, arg "+RTS"
, arg $ "-t" ++ path -/- "haddock.t"
, arg "--machine-readable" ]
customPackageArgs :: Args
customPackageArgs = mconcat
[ package compiler ? stage1 ?
arg "--optghc=-DSTAGE=2" ]
-- TODO: move to getPackageSources
-- , package ghcPrim ? stage1 ?
-- arg "libraries/ghc-prim/dist-install/build/autogen/GHC/Prim.hs" ]
, arg "--machine-readable"
, arg "-RTS" ]
-- From ghc.mk:
-- # -----------------------------------------------
......
......@@ -5,7 +5,7 @@ import Expression
import GHC (compiler)
import Oracles.Config.Setting
import Oracles.Config.Flag
import Predicates (builder, builderGhc, package, notStage0)
import Predicates (builder, builderGhc, package, notStage0, stage1)
import Settings
compilerPackageArgs :: Args
......@@ -36,4 +36,6 @@ compilerPackageArgs = package compiler ? do
ghciWithDebugger ?
notStage0 ? arg "--ghc-option=-DDEBUGGER"
, ghcProfiled ?
notStage0 ? arg "--ghc-pkg-option=--force" ] ]
notStage0 ? arg "--ghc-pkg-option=--force" ]
, builder Haddock ? stage1 ? arg "--optghc=-DSTAGE=2" ]
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