Refactor paths using Context.
[hadrian.git] / src / Settings / Packages / Touchy.hs
1 module Settings.Packages.Touchy (touchyPackageArgs) where
2
3 import Base
4 import Expression
5 import GHC (touchy)
6 import Predicates (builderGhc, package)
7 import Settings
8
9 touchyPackageArgs :: Args
10 touchyPackageArgs = package touchy ? do
11 path <- getContextPath
12 let cabalMacros = path -/- "build/autogen/cabal_macros.h"
13 mconcat [ builderGhc ?
14 mconcat [ arg "-no-hs-main"
15 , remove ["-hide-all-packages"]
16 , removePair "-optP-include" $ "-optP" ++ cabalMacros ] ]