GitLab

5dabc718

by Zubin Duggal at 2025-07-22T21:14:10-04:00

haddock: Don't warn about missing link destinations for derived names.

Fixes #26114

@@ -76,3 +76,7 @@ hypsrcTest:
  .PHONY: haddockForeignTest
  haddockForeignTest:
  	'$(HADDOCK)' A.hs B.hs F.hs arith.c
++
 +.PHONY: T26114
 +T26114:
 +	'$(HADDOCK)' T26114.hs

 +{-# LANGUAGE TypeFamilies #-}
++
 +-- | Module
 +module T26114 where
++
 +-- | C1
 +class C1 t where
 +  type C2 t
++
 +-- | A
 +data A = A
++
 +instance C1 A where
 +  type C2 A = B
++
 +-- | B
 +data B = B
++
 +instance C1 B where
 +  type C2 B = C
++
 +-- | C
 +data C = C

 +[1 of 1] Compiling T26114           ( T26114.hs, nothing )
 +Haddock coverage:
 + 100% (  5 /  5) in 'T26114'

@@ -24,3 +24,8 @@ test('haddockForeignTest',
       [ignore_stdout, ignore_stderr, req_haddock, extra_files(['./haddock-th-foreign-repro/A.hs', './haddock-th-foreign-repro/B.hs', './haddock-th-foreign-repro/F.hs', './haddock-th-foreign-repro/arith.c'])],
       makefile_test,
       ['haddockForeignTest'])
++
 +test('T26114',
 +   [ignore_stderr, req_haddock, extra_files(['T26114.hs'])],
 +   makefile_test,
 +   ['T26114'])

@@ -110,6 +110,7 @@ renameInterface ignoreSet renamingEnv expInfo warnings hoogle iface = do
          && isExternalName name
          && not (isBuiltInSyntax name)
          && not (isTyVarName name)
 +        && not (isDerivedOccName $ nameOccName name)
          && Exact name /= eqTyCon_RDR
          -- Must not be in the set of ignored symbols for the module or the
          -- unqualified ignored symbols