Skip to content
Snippets Groups Projects
Commit 4af71790 authored by Oleg Grenrus's avatar Oleg Grenrus
Browse files

Add regression test, and resolve #6334

Revert "Properly expand globs when looking for headers in extra-src-files."

This reverts commit 3b54835c.
parent 39fb0a4d
No related branches found
No related tags found
No related merge requests found
...@@ -17,7 +17,6 @@ import Distribution.Client.RebuildMonad ...@@ -17,7 +17,6 @@ import Distribution.Client.RebuildMonad
import Distribution.Solver.Types.OptionalStanza import Distribution.Solver.Types.OptionalStanza
import Distribution.Simple.Glob
import Distribution.Simple.PreProcess import Distribution.Simple.PreProcess
import Distribution.Types.PackageDescription import Distribution.Types.PackageDescription
...@@ -34,14 +33,11 @@ import Distribution.Types.ForeignLib ...@@ -34,14 +33,11 @@ import Distribution.Types.ForeignLib
import Distribution.ModuleName import Distribution.ModuleName
import Distribution.Verbosity (silent)
import Prelude () import Prelude ()
import Distribution.Client.Compat.Prelude import Distribution.Client.Compat.Prelude
import System.FilePath import System.FilePath
import Control.Monad import Control.Monad
import Control.Monad.IO.Class
import qualified Data.Set as Set import qualified Data.Set as Set
needElaboratedConfiguredPackage :: ElaboratedConfiguredPackage -> Rebuild () needElaboratedConfiguredPackage :: ElaboratedConfiguredPackage -> Rebuild ()
...@@ -156,9 +152,7 @@ needBuildInfo pkg_descr bi modules = do ...@@ -156,9 +152,7 @@ needBuildInfo pkg_descr bi modules = do
-- compilation). It would be even better if we knew on a -- compilation). It would be even better if we knew on a
-- per-component basis which headers would be used but that -- per-component basis which headers would be used but that
-- seems to be too difficult. -- seems to be too difficult.
forM_ (extraSrcFiles pkg_descr) $ \ glob -> do mapM_ needIfExists (filter ((==".h").takeExtension) (extraSrcFiles pkg_descr))
files <- liftIO $ matchDirFileGlob silent (specVersion pkg_descr) "." glob
mapM_ needIfExists (filter ((==".h").takeExtension) files)
forM_ (installIncludes bi) $ \f -> forM_ (installIncludes bi) $ \f ->
findFileMonitored ("." : includeDirs bi) f findFileMonitored ("." : includeDirs bi) f
>>= maybe (return ()) need >>= maybe (return ()) need
......
# cabal v2-build
Resolving dependencies...
Build profile: -w ghc-<GHCVER> -O1
In order, the following will be built:
- foo-0 (lib) (first run)
Configuring library for foo-0..
Preprocessing library for foo-0..
Building library for foo-0..
packages: foo
import Test.Cabal.Prelude
main = cabalTest $
cabal "v2-build" ["all"]
Some file
cabal-version: 2.2
name: foo
version: 0
description:
https://github.com/haskell/cabal/issues/6334
extra-source-files:
README.md
library
default-language: Haskell2010
hs-source-dirs: src
exposed-modules: Foo
build-depends: base <5
module Foo () where
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment