unbreak cabal haddock --disable-documentation

Author: ulysses4ever

cabal-install/src/Distribution/Client/CmdHaddock.hs

@@ -141,7 +141,8 @@ haddockAction flags@NixStyleFlags {..} targetStrings globalFlags = do
     runProjectPostBuildPhase verbosity baseCtx buildCtx' buildOutcomes
   where
     verbosity = fromFlagOrDefault normal (configVerbosity configFlags)
-    flags' = flags { installFlags = installFlags { installDocumentation = Flag True } }
+    installDoc = fromFlagOrDefault True (installDocumentation installFlags)
+    flags' = flags { installFlags = installFlags { installDocumentation = Flag installDoc } }
     cliConfig = commandLineFlagsToProjectConfig globalFlags flags' mempty -- ClientInstallFlags, not needed here
 
 -- | This defines what a 'TargetSelector' means for the @haddock@ command.

cabal-testsuite/PackageTests/NewHaddock/DisableDoc/B/B.cabal

@@ -0,0 +1,12 @@
+cabal-version:      2.4
+name:               B
+version:            0.1.0.0
+author:             Artem Pelenitsyn
+maintainer:         [email protected]
+
+library
+    exposed-modules:  B
+    build-depends:    base
+                    , A
+    hs-source-dirs:   .
+    default-language: Haskell2010

cabal-testsuite/PackageTests/NewHaddock/DisableDoc/B/B.hs

@@ -0,0 +1,8 @@
+-- | Module using external dependency and mentioning it in haddocks
+module B (b) where
+
+import A
+
+-- | Use 'a'
+b :: Int
+b = a

cabal-testsuite/PackageTests/NewHaddock/DisableDoc/cabal.project

@@ -0,0 +1 @@
+packages: B

cabal-testsuite/PackageTests/NewHaddock/DisableDoc/cabal.test.hs

@@ -0,0 +1,5 @@
+import Test.Cabal.Prelude
+-- Test that `cabal haddock --disable-documention` works as expected and leads
+-- to a failure if a local package makes an outer reference.
+main = cabalTest . withRepo "repo" . fails $
+    cabal "haddock" ["--disable-documentation", "B"]

cabal-testsuite/PackageTests/NewHaddock/DisableDoc/repo/A-0.1.0.0/A.cabal

@@ -0,0 +1,11 @@
+cabal-version:      2.4
+name:               A
+version:            0.1.0.0
+author:             Artem Pelenitsyn
+maintainer:         [email protected]
+
+library
+    exposed-modules:  A
+    build-depends:    base
+    hs-source-dirs:   .
+    default-language: Haskell2010

cabal-testsuite/PackageTests/NewHaddock/DisableDoc/repo/A-0.1.0.0/A.hs

@@ -0,0 +1,4 @@
+module A (a) where
+
+a :: Int
+a = 42