sol/hpack
1
1
Fork 0
mirror of https://github.com/sol/hpack.git synced 2024-10-04 03:38:00 +03:00
Code Issues Projects Releases Wiki Activity

bikeshedding

Browse Source
This commit is contained in:
Simon Hengel 2015-07-05 12:05:03 +08:00
parent 688d9e3c21
commit e2bc732c14
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Hpack/Config.hs
View File

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