Skip to content
Snippets Groups Projects
Commit 53cc93ae authored by Ben Gamari's avatar Ben Gamari Committed by Marge Bot
Browse files

hadrian: Drop redundant include directories

The package-specific include directories in
Settings.Builders.Common.cIncludeDirs are now redundant since they now
come from Cabal.

Closes #20566.
parent 0950e2c4
No related branches found
No related tags found
No related merge requests found
...@@ -24,18 +24,8 @@ cIncludeArgs = do ...@@ -24,18 +24,8 @@ cIncludeArgs = do
path <- getBuildPath path <- getBuildPath
incDirs <- getContextData includeDirs incDirs <- getContextData includeDirs
depDirs <- getContextData depIncludeDirs depDirs <- getContextData depIncludeDirs
-- TODO: Why is any of this necessary? We should have already told Cabal about these paths.
iconvIncludeDir <- getSetting IconvIncludeDir
gmpIncludeDir <- getSetting GmpIncludeDir
ffiIncludeDir <- getSetting FfiIncludeDir
libdwIncludeDir <- getSetting LibdwIncludeDir
numaIncludeDir <- getSetting LibnumaIncludeDir
cursesIncludeDir <- getSetting CursesIncludeDir
mconcat [ notStage0 ? arg "-Irts/include" mconcat [ notStage0 ? arg "-Irts/include"
, arg $ "-I" ++ path , arg $ "-I" ++ path
, pure . map ("-I"++) . filter (/= "") $ [iconvIncludeDir, gmpIncludeDir, numaIncludeDir, cursesIncludeDir]
, flag UseSystemFfi ? if not (null ffiIncludeDir) then arg ("-I" ++ ffiIncludeDir) else mempty
, flag WithLibdw ? if not (null libdwIncludeDir) then arg ("-I" ++ libdwIncludeDir) else mempty
-- Add @incDirs@ in the build directory, since some files generated -- Add @incDirs@ in the build directory, since some files generated
-- with @autoconf@ may end up in the build directory. -- with @autoconf@ may end up in the build directory.
, pure [ "-I" ++ path -/- dir | dir <- incDirs ] , pure [ "-I" ++ path -/- dir | dir <- incDirs ]
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment