This commit is contained in:
Kazu Yamamoto 2013-10-02 12:43:40 +09:00
parent 1a6413cd2f
commit d8275263f0

View File

@ -116,13 +116,13 @@ initializeFlags opt = do
-- FIXME removing Options -- FIXME removing Options
modifyFlags :: DynFlags -> [IncludeDir] -> [Package] -> Bool -> Build -> DynFlags modifyFlags :: DynFlags -> [IncludeDir] -> [Package] -> Bool -> Build -> DynFlags
modifyFlags d0 idirs pepPkgs splice build modifyFlags d0 idirs depPkgs splice build
| splice = setSplice d4 | splice = setSplice d4
| otherwise = d4 | otherwise = d4
where where
d1 = d0 { importPaths = idirs } d1 = d0 { importPaths = idirs }
d2 = setFastOrNot d1 Fast d2 = setFastOrNot d1 Fast
d3 = Gap.addDevPkgs d2 pepPkgs d3 = Gap.addDevPkgs d2 depPkgs
d4 | build == CabalPkg = Gap.setCabalPkg d3 d4 | build == CabalPkg = Gap.setCabalPkg d3
| otherwise = d3 | otherwise = d3