Merge pull request #7827 from brandonchinn178/chinn/haddock

Fix haddock via Setup.hs with internal libraries

Author: mergify[bot]

CONTRIBUTING.md

@@ -22,7 +22,7 @@ Here are some other useful variations on the commands:
 
 ~~~~
 cabal v2-build Cabal # build library only
-cabal v2-build Cabal:unit-tests # build Cabal's unit test suite
+cabal v2-build Cabal-tests:unit-tests # build Cabal's unit test suite
 cabal v2-build cabal-tests # etc...
 ~~~~
 
@@ -91,7 +91,7 @@ run without it).
 
 There are also other test suites:
 
-* `Cabal:unit-tests` are small, quick-running unit tests
+* `Cabal-tests:unit-tests` are small, quick-running unit tests
   on small pieces of functionality in Cabal.  If you are working
   on some utility functions in the Cabal library you should run this
   test suite.

Cabal-syntax/src/Distribution/Compat/Lens.hs

@@ -238,7 +238,7 @@ instance Functor (Pretext a b) where
 --
 -- First start a repl
 --
--- > cabal new-repl Cabal:hackage-tests
+-- > cabal new-repl Cabal-tests:hackage-tests
 --
 -- Because @--extra-package@ isn't yet implemented, we use a test-suite
 -- with @generics-sop@ dependency.

Cabal-syntax/src/Distribution/Types/VersionInterval.hs

@@ -40,7 +40,7 @@ import Distribution.Types.VersionRange.Internal
 
 -- To test this module, and to run version range normalisation benchmarks:
 --
--- cabal run Cabal:unit-tests -- -p Distribution.Version
+-- cabal run Cabal-tests:unit-tests -- -p Distribution.Version
 -- cabal run cabal-benchmarks -- -o bench.html normaliseVersionRange
 
 -------------------------------------------------------------------------------

Cabal/src/Distribution/Simple/Haddock.hs

@@ -279,27 +279,23 @@ haddock pkg_descr lbi suffixes flags' = do
               let libArgs' = commonArgs `mappend` libArgs
               runHaddock verbosity tmpFileOpts comp platform haddockProg libArgs'
 
-              case libName lib of
-                LMainLibName ->
-                  pure index
-                LSubLibName _ -> do
-                  pwd <- getCurrentDirectory
-
-                  let
-                    ipi = inplaceInstalledPackageInfo
-                            pwd (flag haddockDistPref) pkg_descr
-                            (mkAbiHash "inplace") lib lbi' clbi
-
-                  debug verbosity $ "Registering inplace:\n"
-                    ++ (InstalledPackageInfo.showInstalledPackageInfo ipi)
-
-                  registerPackage verbosity (compiler lbi') (withPrograms lbi')
-                    (withPackageDB lbi') ipi
-                    HcPkg.defaultRegisterOptions {
-                      HcPkg.registerMultiInstance = True
-                    }
-
-                  return $ PackageIndex.insert ipi index
+              pwd <- getCurrentDirectory
+
+              let
+                ipi = inplaceInstalledPackageInfo
+                        pwd (flag haddockDistPref) pkg_descr
+                        (mkAbiHash "inplace") lib lbi' clbi
+
+              debug verbosity $ "Registering inplace:\n"
+                ++ (InstalledPackageInfo.showInstalledPackageInfo ipi)
+
+              registerPackage verbosity (compiler lbi') (withPrograms lbi')
+                (withPackageDB lbi') ipi
+                HcPkg.defaultRegisterOptions {
+                  HcPkg.registerMultiInstance = True
+                }
+
+              return $ PackageIndex.insert ipi index
 
         CFLib flib -> (when (flag haddockForeignLibs) $ do
           withTempDirectoryEx verbosity tmpFileOpts (buildDir lbi') "tmp" $

cabal-testsuite/PackageTests/InternalLibraries/Haddock/Foo.hs

@@ -0,0 +1,6 @@
+module Foo where
+
+import InternalBefore
+
+foo :: Int
+foo = internalBefore

cabal-testsuite/PackageTests/InternalLibraries/Haddock/InternalAfter.hs

@@ -0,0 +1,6 @@
+module InternalAfter where
+
+import Foo
+
+internalAfter :: Int
+internalAfter = foo

cabal-testsuite/PackageTests/InternalLibraries/Haddock/InternalBefore.hs

@@ -0,0 +1,4 @@
+module InternalBefore where
+
+internalBefore :: Int
+internalBefore = 42

cabal-testsuite/PackageTests/InternalLibraries/Haddock/foo.cabal

@@ -0,0 +1,19 @@
+name:                foo
+version:             0.1.0.0
+build-type:          Simple
+cabal-version:       1.24
+
+library foo-internal-before
+  build-depends:       base
+  exposed-modules:     InternalBefore
+  default-language:    Haskell2010
+
+library
+  build-depends:       base, foo-internal-before
+  exposed-modules:     Foo
+  default-language:    Haskell2010
+
+library foo-internal-after
+  build-depends:       base, foo
+  exposed-modules:     InternalAfter
+  default-language:    Haskell2010

cabal-testsuite/PackageTests/InternalLibraries/Haddock/haddock.cabal.out

@@ -0,0 +1,27 @@
+# Setup configure
+Configuring foo-0.1.0.0...
+# Setup build
+Preprocessing library 'foo-internal-before' for foo-0.1.0.0..
+Building library 'foo-internal-before' for foo-0.1.0.0..
+Preprocessing library for foo-0.1.0.0..
+Building library for foo-0.1.0.0..
+Preprocessing library 'foo-internal-after' for foo-0.1.0.0..
+Building library 'foo-internal-after' for foo-0.1.0.0..
+# Setup copy
+Installing internal library foo-internal-before in <PATH>
+Installing library in <PATH>
+Installing internal library foo-internal-after in <PATH>
+# Setup register
+Registering library 'foo-internal-before' for foo-0.1.0.0..
+Registering library for foo-0.1.0.0..
+Registering library 'foo-internal-after' for foo-0.1.0.0..
+# Setup haddock
+Preprocessing library 'foo-internal-before' for foo-0.1.0.0..
+Running Haddock on library 'foo-internal-before' for foo-0.1.0.0..
+Documentation created: haddock.cabal.dist/work/dist/doc/html/foo/index.html
+Preprocessing library for foo-0.1.0.0..
+Running Haddock on library for foo-0.1.0.0..
+Documentation created: haddock.cabal.dist/work/dist/doc/html/foo/index.html
+Preprocessing library 'foo-internal-after' for foo-0.1.0.0..
+Running Haddock on library 'foo-internal-after' for foo-0.1.0.0..
+Documentation created: haddock.cabal.dist/work/dist/doc/html/foo/index.html

cabal-testsuite/PackageTests/InternalLibraries/Haddock/haddock.out

@@ -0,0 +1,27 @@
+# Setup configure
+Configuring foo-0.1.0.0...
+# Setup build
+Preprocessing library 'foo-internal-before' for foo-0.1.0.0..
+Building library 'foo-internal-before' for foo-0.1.0.0..
+Preprocessing library for foo-0.1.0.0..
+Building library for foo-0.1.0.0..
+Preprocessing library 'foo-internal-after' for foo-0.1.0.0..
+Building library 'foo-internal-after' for foo-0.1.0.0..
+# Setup copy
+Installing internal library foo-internal-before in <PATH>
+Installing library in <PATH>
+Installing internal library foo-internal-after in <PATH>
+# Setup register
+Registering library 'foo-internal-before' for foo-0.1.0.0..
+Registering library for foo-0.1.0.0..
+Registering library 'foo-internal-after' for foo-0.1.0.0..
+# Setup haddock
+Preprocessing library 'foo-internal-before' for foo-0.1.0.0..
+Running Haddock on library 'foo-internal-before' for foo-0.1.0.0..
+Documentation created: haddock.dist/work/dist/doc/html/foo/index.html
+Preprocessing library for foo-0.1.0.0..
+Running Haddock on library for foo-0.1.0.0..
+Documentation created: haddock.dist/work/dist/doc/html/foo/index.html
+Preprocessing library 'foo-internal-after' for foo-0.1.0.0..
+Running Haddock on library 'foo-internal-after' for foo-0.1.0.0..
+Documentation created: haddock.dist/work/dist/doc/html/foo/index.html