1
1
mirror of https://github.com/sol/hpack.git synced 2024-10-04 03:38:00 +03:00

bikeshedding

This commit is contained in:
Simon Hengel 2015-07-05 12:05:03 +08:00
parent 688d9e3c21
commit e2bc732c14

View File

@ -267,7 +267,7 @@ mkPackage (CaptureUnknownFields unknownFields PackageConfig{..}) = do
++ concatMap executableSourceDirs tests
)
(extrasWarnings, globbedExtraSourceFiles) <-
(extraSourceFilesWarnings, extraSourceFiles) <-
expandGlobs (fromMaybeList packageConfigExtraSourceFiles)
let package = Package {
@ -284,7 +284,7 @@ mkPackage (CaptureUnknownFields unknownFields PackageConfig{..}) = do
, packageCopyright = fromMaybeList packageConfigCopyright
, packageLicense = packageConfigLicense
, packageLicenseFile = guard licenseFileExists >> Just "LICENSE"
, packageExtraSourceFiles = globbedExtraSourceFiles
, packageExtraSourceFiles = extraSourceFiles
, packageSourceRepository = sourceRepository
, packageLibrary = mLibrary
, packageExecutables = executables
@ -297,7 +297,7 @@ mkPackage (CaptureUnknownFields unknownFields PackageConfig{..}) = do
++ formatUnknownSectionFields "executable" packageConfigExecutables
++ formatUnknownSectionFields "test" packageConfigTests
++ formatMissingSourceDirs missingSourceDirs
++ extrasWarnings
++ extraSourceFilesWarnings
return (warnings, package)
where