input-output-hk/foliage
1
1
Fork 0
mirror of https://github.com/input-output-hk/foliage.git synced 2024-09-11 20:27:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

Maybe fix issue

Browse Source
This commit is contained in:
Andrea Bedini 2023-03-10 13:29:22 +08:00
parent 20049b1e81
commit 234f8fcbf1
No known key found for this signature in database
GPG Key ID: F1CC67F04AAA7FD0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/Foliage/CmdBuild.hs
View File

@ -120,6 +120,7 @@ buildAction
packageVersions
targetKeys <- maybeReadKeysAt "target"
metadataEntries <-
forP packageVersions $ \ppv@PreparedPackageVersion {pkgId, pkgTimestamp} -> do
let PackageIdentifier {pkgName, pkgVersion} = pkgId
@ -279,7 +280,7 @@ prepareIndexPkgCabal pkgId timestamp filePath = do
prepareIndexPkgMetadata :: Maybe UTCTime -> PreparedPackageVersion -> Action Targets
prepareIndexPkgMetadata expiryTime PreparedPackageVersion {pkgId, sdistPath} = do
targetFileInfo <- computeFileInfoSimple' sdistPath
targetFileInfo <- liftIO $ computeFileInfoSimple sdistPath
let packagePath = repoLayoutPkgTarGz hackageRepoLayout pkgId
return
Targets