Skip to content

Commit e4a25e9

Browse files
authored
Merge pull request #5393 from uncle-betty/hie-bios
Also resolve auto-generated component files.
2 parents 3c6a5d7 + f8b7bfc commit e4a25e9

File tree

1 file changed

+12
-2
lines changed

1 file changed

+12
-2
lines changed

src/Stack/Package.hs

Lines changed: 12 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -82,6 +82,7 @@ import qualified RIO.PrettyPrint as PP (Style (Module))
8282
data Ctx = Ctx { ctxFile :: !(Path Abs File)
8383
, ctxDistDir :: !(Path Abs Dir)
8484
, ctxBuildConfig :: !BuildConfig
85+
, ctxCabalVer :: !Version
8586
}
8687

8788
instance HasPlatform Ctx
@@ -219,9 +220,10 @@ packageFromPackageDescription packageConfig pkgFlags (PackageDescriptionPair pkg
219220
let pkgDir = parent cabalfp
220221
distDir <- distDirFromDir pkgDir
221222
bc <- view buildConfigL
223+
cabalVer <- view cabalVersionL
222224
(componentModules,componentFiles,dataFiles',warnings) <-
223225
runRIO
224-
(Ctx cabalfp distDir bc)
226+
(Ctx cabalfp distDir bc cabalVer)
225227
(packageDescModulesAndFiles pkg)
226228
setupFiles <-
227229
if buildType pkg == Custom
@@ -795,13 +797,21 @@ resolveComponentFiles
795797
resolveComponentFiles component build names = do
796798
dirs <- mapMaybeM resolveDirOrWarn (hsSourceDirs build)
797799
dir <- asks (parent . ctxFile)
800+
agdirs <- autogenDirs
798801
(modules,files,warnings) <-
799802
resolveFilesAndDeps
800803
component
801-
(if null dirs then [dir] else dirs)
804+
((if null dirs then [dir] else dirs) ++ agdirs)
802805
names
803806
cfiles <- buildOtherSources build
804807
return (modules, files <> cfiles, warnings)
808+
where
809+
autogenDirs = do
810+
cabalVer <- asks ctxCabalVer
811+
distDir <- asks ctxDistDir
812+
let compDir = componentAutogenDir cabalVer component distDir
813+
pkgDir = maybeToList $ packageAutogenDir cabalVer distDir
814+
return $ compDir : pkgDir
805815

806816
-- | Get all C sources and extra source files in a build.
807817
buildOtherSources :: BuildInfo -> RIO Ctx [DotCabalPath]

0 commit comments

Comments
 (0)