[Git][ghc/ghc][wip/unwire-base] 4 commits: Fix -Wall

Matthew Pickering (@mpickering) gitlab at gitlab.haskell.org
Fri Aug 30 10:25:23 UTC 2024



Matthew Pickering pushed to branch wip/unwire-base at Glasgow Haskell Compiler / GHC


Commits:
0141ee71 by Matthew Pickering at 2024-08-30T10:54:45+01:00
Fix -Wall

- - - - -
b87572c3 by Matthew Pickering at 2024-08-30T11:24:36+01:00
Base-unwire

- - - - -
45d7b7dc by Matthew Pickering at 2024-08-30T11:24:52+01:00
package imports issue

- - - - -
7f2611c7 by Matthew Pickering at 2024-08-30T11:25:03+01:00
Compat warning

- - - - -


13 changed files:

- testsuite/tests/backpack/should_compile/bkp16.stderr
- testsuite/tests/backpack/should_fail/bkpfail17.stderr
- testsuite/tests/backpack/should_fail/bkpfail19.stderr
- testsuite/tests/iface/IfaceSharingIfaceType.hs
- testsuite/tests/iface/IfaceSharingName.hs
- testsuite/tests/parser/should_compile/all.T
- − testsuite/tests/parser/should_fail/T17045.stderr
- testsuite/tests/parser/should_fail/all.T
- − testsuite/tests/rename/should_compile/T17244A.stderr
- testsuite/tests/wcompat-warnings/WCompatWarningsOn.stderr
- utils/haddock/haddock-api/src/Haddock/GhcUtils.hs
- utils/haddock/html-test/ref/Bug1004.html
- utils/haddock/html-test/ref/Bug548.html


Changes:

=====================================
testsuite/tests/backpack/should_compile/bkp16.stderr
=====================================
@@ -2,8 +2,8 @@
   [1 of 1] Compiling Int[sig]         ( p/Int.hsig, nothing )
 [2 of 2] Processing q
   Instantiating q
-  [1 of 1] Including p[Int=base-4.19.0.0:GHC.Exts]
-    Instantiating p[Int=base-4.19.0.0:GHC.Exts]
-    [1 of 1] Including base-4.19.0.0
-    [1 of 1] Compiling Int[sig]         ( p/Int.hsig, bkp16.out/p/p-97PZnzqiJmd2hTwUNGdjod/Int.o )
+  [1 of 1] Including p[Int=base-4.20.0.0:GHC.Exts]
+    Instantiating p[Int=base-4.20.0.0:GHC.Exts]
+    [1 of 1] Including base-4.20.0.0
+    [1 of 1] Compiling Int[sig]         ( p/Int.hsig, bkp16.out/p/p-3JmGAx0a1DyKjX6bh7CxGJ/Int.o )
   [1 of 1] Instantiating p


=====================================
testsuite/tests/backpack/should_fail/bkpfail17.stderr
=====================================
@@ -2,10 +2,9 @@
   [1 of 1] Compiling ShouldFail[sig]  ( p/ShouldFail.hsig, nothing )
 [2 of 2] Processing q
   Instantiating q
-  [1 of 1] Including p[ShouldFail=base-4.19.0.0:Prelude]
-    Instantiating p[ShouldFail=base-4.19.0.0:Prelude]
-    [1 of 1] Compiling ShouldFail[sig]  ( p/ShouldFail.hsig, bkpfail17.out/p/p-2W6J7O3LvroH97zGxbPEGF/ShouldFail.o )
-
+  [1 of 1] Including p[ShouldFail=base-4.20.0.0:Prelude]
+    Instantiating p[ShouldFail=base-4.20.0.0:Prelude]
+    [1 of 1] Compiling ShouldFail[sig]  ( p/ShouldFail.hsig, bkpfail17.out/p/p-9R9TTjIBG3MEjwCQffKVYM/ShouldFail.o )
 <no location info>: error: [GHC-15843]
     • Type constructor ‘Either’ has conflicting definitions in the module
       and its hsig file.
@@ -16,3 +15,4 @@
                    data Either a b c = Left a
       The types have different kinds.
     • While checking that ‘Prelude’ implements signature ‘ShouldFail’ in ‘p[ShouldFail=Prelude]’.
+


=====================================
testsuite/tests/backpack/should_fail/bkpfail19.stderr
=====================================
@@ -2,11 +2,11 @@
   [1 of 1] Compiling ShouldFail[sig]  ( p/ShouldFail.hsig, nothing )
 [2 of 2] Processing q
   Instantiating q
-  [1 of 1] Including p[ShouldFail=base-4.19.0.0:Data.STRef]
-    Instantiating p[ShouldFail=base-4.19.0.0:Data.STRef]
-    [1 of 1] Compiling ShouldFail[sig]  ( p/ShouldFail.hsig, bkpfail19.out/p/p-CfyUIAu1JTRCDuXEyGszXN/ShouldFail.o )
-
+  [1 of 1] Including p[ShouldFail=base-4.20.0.0:Data.STRef]
+    Instantiating p[ShouldFail=base-4.20.0.0:Data.STRef]
+    [1 of 1] Compiling ShouldFail[sig]  ( p/ShouldFail.hsig, bkpfail19.out/p/p-Gwl8Z2CPH0M7Zi2wPSYSbs/ShouldFail.o )
 <no location info>: error: [GHC-12424]
     • The hsig file (re)exports ‘Data.STRef.Lazy.newSTRef’
       but the implementing module exports a different identifier ‘GHC.Internal.STRef.newSTRef’
     • While checking that ‘Data.STRef’ implements signature ‘ShouldFail’ in ‘p[ShouldFail=Data.STRef]’.
+


=====================================
testsuite/tests/iface/IfaceSharingIfaceType.hs
=====================================
@@ -18,11 +18,13 @@ import GHC
 
 [u1,u2,u3,u4,u5] = map mkPreludeMiscIdUnique [10000..10004]
 
-names = [ mkExternalName u1 pRELUDE f1 noSrcSpan
-        , mkExternalName u2 pRELUDE f2 noSrcSpan
-        , mkExternalName u3 pRELUDE f3 noSrcSpan
-        , mkExternalName u4 pRELUDE f4 noSrcSpan
-        , mkExternalName u5 pRELUDE f5 noSrcSpan ]
+m = gHC_PRIM
+
+names = [ mkExternalName u1 m f1 noSrcSpan
+        , mkExternalName u2 m f2 noSrcSpan
+        , mkExternalName u3 m f3 noSrcSpan
+        , mkExternalName u4 m f4 noSrcSpan
+        , mkExternalName u5 m f5 noSrcSpan ]
 
 -- Int
 intIfaceTy = toIfaceType intTy


=====================================
testsuite/tests/iface/IfaceSharingName.hs
=====================================
@@ -14,8 +14,10 @@ import GHC.Types.SrcLoc
 
 [u1,u2,u3,u4,u5] = map mkPreludeMiscIdUnique [10000..10004]
 
-names = [ mkExternalName u1 pRELUDE f1 noSrcSpan
-        , mkExternalName u2 pRELUDE f2 noSrcSpan
-        , mkExternalName u3 pRELUDE f3 noSrcSpan
-        , mkExternalName u4 pRELUDE f4 noSrcSpan
-        , mkExternalName u5 pRELUDE f5 noSrcSpan ]
+m = gHC_PRIM
+
+names = [ mkExternalName u1 m f1 noSrcSpan
+        , mkExternalName u2 m f2 noSrcSpan
+        , mkExternalName u3 m f3 noSrcSpan
+        , mkExternalName u4 m f4 noSrcSpan
+        , mkExternalName u5 m f5 noSrcSpan ]


=====================================
testsuite/tests/parser/should_compile/all.T
=====================================
@@ -177,7 +177,7 @@ test('T18130', normal, compile, [''])
 test('T18834a', normal, compile, [''])
 test('T18834b', normal, compile, [''])
 test('T12862', normal, compile, [''])
-test('T19082', normal, compile, [''])
+test('T19082', normal, compile_fail, [''])
 test('T19521', normal, compile, [''])
 
 test('T20186', normal, compile, [''])


=====================================
testsuite/tests/parser/should_fail/T17045.stderr deleted
=====================================
@@ -1,6 +0,0 @@
-
-T17045.hs:7:11: error: [GHC-76037]
-    Not in scope: type constructor or class ‘String’
-    Suggested fix:
-      Add ‘String’ to the import list in the import of ‘Prelude’
-      (at T17045.hs:5:1-27).


=====================================
testsuite/tests/parser/should_fail/all.T
=====================================
@@ -175,7 +175,7 @@ test('T18251c', normal, compile_fail, [''])
 test('T18251e', normal, compile_fail, [''])
 test('T18251f', normal, compile_fail, [''])
 test('T12446', normal, compile_fail, [''])
-test('T17045', normal, compile_fail, [''])
+test('T17045', normal, compile, [''])
 test('RecordDotSyntaxFail0', normal, compile_fail, [''])
 test('RecordDotSyntaxFail1', normal, compile_fail, [''])
 test('RecordDotSyntaxFail2', normal, compile_fail, [''])


=====================================
testsuite/tests/rename/should_compile/T17244A.stderr deleted
=====================================
@@ -1,5 +0,0 @@
-
-T17244A.hs:6:8: warning: [GHC-82347] [-Wcompat-unqualified-imports (in -Wcompat)]
-    To ensure compatibility with future core libraries changes
-    imports to Data.List should be
-    either qualified or have an explicit import list.


=====================================
testsuite/tests/wcompat-warnings/WCompatWarningsOn.stderr
=====================================
@@ -1,9 +1,3 @@
-
-Template.hs:6:8: warning: [GHC-82347] [-Wcompat-unqualified-imports (in -Wcompat)]
-    To ensure compatibility with future core libraries changes
-    imports to Data.List should be
-    either qualified or have an explicit import list.
-
 Template.hs:9:29: warning: [GHC-16382] [-Wimplicit-rhs-quantification (in -Wcompat)]
     The variable ‘a’ occurs free on the RHS of the type declaration
     In the future GHC will no longer implicitly quantify over such variables


=====================================
utils/haddock/haddock-api/src/Haddock/GhcUtils.hs
=====================================
@@ -40,11 +40,9 @@ import Data.List.NonEmpty (NonEmpty (..))
 import Data.Maybe (fromMaybe, mapMaybe)
 import qualified Data.Set as Set
 import GHC
-import GHC.Builtin.Names
 import GHC.Builtin.Types (liftedRepTy)
 import GHC.Core.TyCo.Rep (Type (..))
 import GHC.Core.Type (binderVar, isRuntimeRepVar)
-import GHC.Data.FastString
 import GHC.Data.StringBuffer (StringBuffer)
 import qualified GHC.Data.StringBuffer as S
 import GHC.Driver.Session


=====================================
utils/haddock/html-test/ref/Bug1004.html
=====================================
@@ -210,7 +210,7 @@
 				  >D1</a
 				  > ('<a href="#" title="GHC.Generics"
 				  >MetaData</a
-				  > "Product" "Data.Functor.Product" "base" '<a href="#" title="Data.Bool"
+				  > "Product" "Data.Functor.Product" "base-4.20.0.0-inplace" '<a href="#" title="Data.Bool"
 				  >False</a
 				  >) (<a href="#" title="GHC.Generics"
 				  >C1</a
@@ -302,83 +302,7 @@
 		><tr
 		><td class="src clearfix"
 		  ><span class="inst-left"
-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:MonadZip:2"
-		      ></span
-		      > (<a href="#" title="Control.Monad.Zip"
-		      >MonadZip</a
-		      > f, <a href="#" title="Control.Monad.Zip"
-		      >MonadZip</a
-		      > g) => <a href="#" title="Control.Monad.Zip"
-		      >MonadZip</a
-		      > (<a href="#" title="Bug1004"
-		      >Product</a
-		      > f g)</span
-		    > <a href="#" class="selflink"
-		    >#</a
-		    ></td
-		  ><td class="doc"
-		  ><p
-		    ><em
-		      >Since: base-4.9.0.0</em
-		      ></p
-		    ></td
-		  ></tr
-		><tr
-		><td colspan="2"
-		  ><details id="i:id:Product:MonadZip:2"
-		    ><summary class="hide-when-js-enabled"
-		      >Instance details</summary
-		      ><p
-		      >Defined in <a href="#"
-			>Data.Functor.Product</a
-			></p
-		      > <div class="subs methods"
-		      ><p class="caption"
-			>Methods</p
-			><p class="src"
-			><a href="#"
-			  >mzip</a
-			  > :: <a href="#" title="Bug1004"
-			  >Product</a
-			  > f g a -> <a href="#" title="Bug1004"
-			  >Product</a
-			  > f g b -> <a href="#" title="Bug1004"
-			  >Product</a
-			  > f g (a, b) <a href="#" class="selflink"
-			  >#</a
-			  ></p
-			><p class="src"
-			><a href="#"
-			  >mzipWith</a
-			  > :: (a -> b -> c) -> <a href="#" title="Bug1004"
-			  >Product</a
-			  > f g a -> <a href="#" title="Bug1004"
-			  >Product</a
-			  > f g b -> <a href="#" title="Bug1004"
-			  >Product</a
-			  > f g c <a href="#" class="selflink"
-			  >#</a
-			  ></p
-			><p class="src"
-			><a href="#"
-			  >munzip</a
-			  > :: <a href="#" title="Bug1004"
-			  >Product</a
-			  > f g (a, b) -> (<a href="#" title="Bug1004"
-			  >Product</a
-			  > f g a, <a href="#" title="Bug1004"
-			  >Product</a
-			  > f g b) <a href="#" class="selflink"
-			  >#</a
-			  ></p
-			></div
-		      ></details
-		    ></td
-		  ></tr
-		><tr
-		><td class="src clearfix"
-		  ><span class="inst-left"
-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Foldable1:3"
+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Foldable1:2"
 		      ></span
 		      > (<a href="#" title="Data.Foldable1"
 		      >Foldable1</a
@@ -408,7 +332,7 @@
 		  ></tr
 		><tr
 		><td colspan="2"
-		  ><details id="i:id:Product:Foldable1:3"
+		  ><details id="i:id:Product:Foldable1:2"
 		    ><summary class="hide-when-js-enabled"
 		      >Instance details</summary
 		      ><p
@@ -533,7 +457,7 @@
 		><tr
 		><td class="src clearfix"
 		  ><span class="inst-left"
-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Eq1:4"
+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Eq1:3"
 		      ></span
 		      > (<a href="#" title="Data.Functor.Classes"
 		      >Eq1</a
@@ -556,7 +480,7 @@
 		  ></tr
 		><tr
 		><td colspan="2"
-		  ><details id="i:id:Product:Eq1:4"
+		  ><details id="i:id:Product:Eq1:3"
 		    ><summary class="hide-when-js-enabled"
 		      >Instance details</summary
 		      ><p
@@ -587,7 +511,7 @@
 		><tr
 		><td class="src clearfix"
 		  ><span class="inst-left"
-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Ord1:5"
+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Ord1:4"
 		      ></span
 		      > (<a href="#" title="Data.Functor.Classes"
 		      >Ord1</a
@@ -610,7 +534,7 @@
 		  ></tr
 		><tr
 		><td colspan="2"
-		  ><details id="i:id:Product:Ord1:5"
+		  ><details id="i:id:Product:Ord1:4"
 		    ><summary class="hide-when-js-enabled"
 		      >Instance details</summary
 		      ><p
@@ -641,7 +565,7 @@
 		><tr
 		><td class="src clearfix"
 		  ><span class="inst-left"
-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Read1:6"
+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Read1:5"
 		      ></span
 		      > (<a href="#" title="Data.Functor.Classes"
 		      >Read1</a
@@ -664,7 +588,7 @@
 		  ></tr
 		><tr
 		><td colspan="2"
-		  ><details id="i:id:Product:Read1:6"
+		  ><details id="i:id:Product:Read1:5"
 		    ><summary class="hide-when-js-enabled"
 		      >Instance details</summary
 		      ><p
@@ -743,7 +667,7 @@
 		><tr
 		><td class="src clearfix"
 		  ><span class="inst-left"
-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Show1:7"
+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Show1:6"
 		      ></span
 		      > (<a href="#" title="Data.Functor.Classes"
 		      >Show1</a
@@ -766,7 +690,7 @@
 		  ></tr
 		><tr
 		><td colspan="2"
-		  ><details id="i:id:Product:Show1:7"
+		  ><details id="i:id:Product:Show1:6"
 		    ><summary class="hide-when-js-enabled"
 		      >Instance details</summary
 		      ><p
@@ -817,7 +741,7 @@
 		><tr
 		><td class="src clearfix"
 		  ><span class="inst-left"
-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Contravariant:8"
+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Contravariant:7"
 		      ></span
 		      > (<a href="#" title="Data.Functor.Contravariant"
 		      >Contravariant</a
@@ -836,7 +760,7 @@
 		  ></tr
 		><tr
 		><td colspan="2"
-		  ><details id="i:id:Product:Contravariant:8"
+		  ><details id="i:id:Product:Contravariant:7"
 		    ><summary class="hide-when-js-enabled"
 		      >Instance details</summary
 		      ><p
@@ -873,7 +797,7 @@
 		><tr
 		><td class="src clearfix"
 		  ><span class="inst-left"
-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Alternative:9"
+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Alternative:8"
 		      ></span
 		      > (<a href="#" title="Control.Applicative"
 		      >Alternative</a
@@ -896,7 +820,7 @@
 		  ></tr
 		><tr
 		><td colspan="2"
-		  ><details id="i:id:Product:Alternative:9"
+		  ><details id="i:id:Product:Alternative:8"
 		    ><summary class="hide-when-js-enabled"
 		      >Instance details</summary
 		      ><p
@@ -953,7 +877,7 @@
 		><tr
 		><td class="src clearfix"
 		  ><span class="inst-left"
-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Applicative:10"
+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Applicative:9"
 		      ></span
 		      > (<a href="#" title="Control.Applicative"
 		      >Applicative</a
@@ -976,7 +900,7 @@
 		  ></tr
 		><tr
 		><td colspan="2"
-		  ><details id="i:id:Product:Applicative:10"
+		  ><details id="i:id:Product:Applicative:9"
 		    ><summary class="hide-when-js-enabled"
 		      >Instance details</summary
 		      ><p
@@ -1049,7 +973,7 @@
 		><tr
 		><td class="src clearfix"
 		  ><span class="inst-left"
-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Functor:11"
+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Functor:10"
 		      ></span
 		      > (<a href="#" title="Control.Monad"
 		      >Functor</a
@@ -1072,7 +996,7 @@
 		  ></tr
 		><tr
 		><td colspan="2"
-		  ><details id="i:id:Product:Functor:11"
+		  ><details id="i:id:Product:Functor:10"
 		    ><summary class="hide-when-js-enabled"
 		      >Instance details</summary
 		      ><p
@@ -1109,7 +1033,7 @@
 		><tr
 		><td class="src clearfix"
 		  ><span class="inst-left"
-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Monad:12"
+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Monad:11"
 		      ></span
 		      > (<a href="#" title="Control.Monad"
 		      >Monad</a
@@ -1132,7 +1056,7 @@
 		  ></tr
 		><tr
 		><td colspan="2"
-		  ><details id="i:id:Product:Monad:12"
+		  ><details id="i:id:Product:Monad:11"
 		    ><summary class="hide-when-js-enabled"
 		      >Instance details</summary
 		      ><p
@@ -1181,7 +1105,7 @@
 		><tr
 		><td class="src clearfix"
 		  ><span class="inst-left"
-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:MonadPlus:13"
+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:MonadPlus:12"
 		      ></span
 		      > (<a href="#" title="Control.Monad"
 		      >MonadPlus</a
@@ -1204,7 +1128,7 @@
 		  ></tr
 		><tr
 		><td colspan="2"
-		  ><details id="i:id:Product:MonadPlus:13"
+		  ><details id="i:id:Product:MonadPlus:12"
 		    ><summary class="hide-when-js-enabled"
 		      >Instance details</summary
 		      ><p
@@ -1241,7 +1165,7 @@
 		><tr
 		><td class="src clearfix"
 		  ><span class="inst-left"
-		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:MonadFix:14"
+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:MonadFix:13"
 		      ></span
 		      > (<a href="#" title="Control.Monad.Fix"
 		      >MonadFix</a
@@ -1264,7 +1188,7 @@
 		  ></tr
 		><tr
 		><td colspan="2"
-		  ><details id="i:id:Product:MonadFix:14"
+		  ><details id="i:id:Product:MonadFix:13"
 		    ><summary class="hide-when-js-enabled"
 		      >Instance details</summary
 		      ><p
@@ -1289,6 +1213,82 @@
 		    ></td
 		  ></tr
 		><tr
+		><td class="src clearfix"
+		  ><span class="inst-left"
+		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:MonadZip:14"
+		      ></span
+		      > (<a href="#" title="Control.Monad.Zip"
+		      >MonadZip</a
+		      > f, <a href="#" title="Control.Monad.Zip"
+		      >MonadZip</a
+		      > g) => <a href="#" title="Control.Monad.Zip"
+		      >MonadZip</a
+		      > (<a href="#" title="Bug1004"
+		      >Product</a
+		      > f g)</span
+		    > <a href="#" class="selflink"
+		    >#</a
+		    ></td
+		  ><td class="doc"
+		  ><p
+		    ><em
+		      >Since: base-4.9.0.0</em
+		      ></p
+		    ></td
+		  ></tr
+		><tr
+		><td colspan="2"
+		  ><details id="i:id:Product:MonadZip:14"
+		    ><summary class="hide-when-js-enabled"
+		      >Instance details</summary
+		      ><p
+		      >Defined in <a href="#"
+			>Data.Functor.Product</a
+			></p
+		      > <div class="subs methods"
+		      ><p class="caption"
+			>Methods</p
+			><p class="src"
+			><a href="#"
+			  >mzip</a
+			  > :: <a href="#" title="Bug1004"
+			  >Product</a
+			  > f g a -> <a href="#" title="Bug1004"
+			  >Product</a
+			  > f g b -> <a href="#" title="Bug1004"
+			  >Product</a
+			  > f g (a, b) <a href="#" class="selflink"
+			  >#</a
+			  ></p
+			><p class="src"
+			><a href="#"
+			  >mzipWith</a
+			  > :: (a -> b -> c) -> <a href="#" title="Bug1004"
+			  >Product</a
+			  > f g a -> <a href="#" title="Bug1004"
+			  >Product</a
+			  > f g b -> <a href="#" title="Bug1004"
+			  >Product</a
+			  > f g c <a href="#" class="selflink"
+			  >#</a
+			  ></p
+			><p class="src"
+			><a href="#"
+			  >munzip</a
+			  > :: <a href="#" title="Bug1004"
+			  >Product</a
+			  > f g (a, b) -> (<a href="#" title="Bug1004"
+			  >Product</a
+			  > f g a, <a href="#" title="Bug1004"
+			  >Product</a
+			  > f g b) <a href="#" class="selflink"
+			  >#</a
+			  ></p
+			></div
+		      ></details
+		    ></td
+		  ></tr
+		><tr
 		><td class="src clearfix"
 		  ><span class="inst-left"
 		    ><span class="instance details-toggle-control details-toggle" data-details-id="i:id:Product:Foldable:15"
@@ -2037,7 +2037,7 @@
 				  >D1</a
 				  > ('<a href="#" title="GHC.Generics"
 				  >MetaData</a
-				  > "Product" "Data.Functor.Product" "base" '<a href="#" title="Data.Bool"
+				  > "Product" "Data.Functor.Product" "base-4.20.0.0-inplace" '<a href="#" title="Data.Bool"
 				  >False</a
 				  >) (<a href="#" title="GHC.Generics"
 				  >C1</a
@@ -2510,7 +2510,7 @@
 			>D1</a
 			> ('<a href="#" title="GHC.Generics"
 			>MetaData</a
-			> "Product" "Data.Functor.Product" "base" '<a href="#" title="Data.Bool"
+			> "Product" "Data.Functor.Product" "base-4.20.0.0-inplace" '<a href="#" title="Data.Bool"
 			>False</a
 			>) (<a href="#" title="GHC.Generics"
 			>C1</a
@@ -2604,7 +2604,7 @@
 			>D1</a
 			> ('<a href="#" title="GHC.Generics"
 			>MetaData</a
-			> "Product" "Data.Functor.Product" "base" '<a href="#" title="Data.Bool"
+			> "Product" "Data.Functor.Product" "base-4.20.0.0-inplace" '<a href="#" title="Data.Bool"
 			>False</a
 			>) (<a href="#" title="GHC.Generics"
 			>C1</a


=====================================
utils/haddock/html-test/ref/Bug548.html
=====================================
@@ -186,7 +186,7 @@
 				  >D1</a
 				  > ('<a href="#" title="GHC.Generics"
 				  >MetaData</a
-				  > "WrappedArrow" "Control.Applicative" "base" '<a href="#" title="Data.Bool"
+				  > "WrappedArrow" "Control.Applicative" "base-4.20.0.0-inplace" '<a href="#" title="Data.Bool"
 				  >True</a
 				  >) (<a href="#" title="GHC.Generics"
 				  >C1</a
@@ -792,7 +792,7 @@
 				  >D1</a
 				  > ('<a href="#" title="GHC.Generics"
 				  >MetaData</a
-				  > "WrappedArrow" "Control.Applicative" "base" '<a href="#" title="Data.Bool"
+				  > "WrappedArrow" "Control.Applicative" "base-4.20.0.0-inplace" '<a href="#" title="Data.Bool"
 				  >True</a
 				  >) (<a href="#" title="GHC.Generics"
 				  >C1</a
@@ -903,7 +903,7 @@
 			>D1</a
 			> ('<a href="#" title="GHC.Generics"
 			>MetaData</a
-			> "WrappedArrow" "Control.Applicative" "base" '<a href="#" title="Data.Bool"
+			> "WrappedArrow" "Control.Applicative" "base-4.20.0.0-inplace" '<a href="#" title="Data.Bool"
 			>True</a
 			>) (<a href="#" title="GHC.Generics"
 			>C1</a
@@ -973,7 +973,7 @@
 			>D1</a
 			> ('<a href="#" title="GHC.Generics"
 			>MetaData</a
-			> "WrappedArrow" "Control.Applicative" "base" '<a href="#" title="Data.Bool"
+			> "WrappedArrow" "Control.Applicative" "base-4.20.0.0-inplace" '<a href="#" title="Data.Bool"
 			>True</a
 			>) (<a href="#" title="GHC.Generics"
 			>C1</a



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/493660d3693bb672f957d7ba239d62fb05335163...7f2611c7c92b11524c1e0b8e6b9d89c1e757702e

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/493660d3693bb672f957d7ba239d62fb05335163...7f2611c7c92b11524c1e0b8e6b9d89c1e757702e
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20240830/16d38715/attachment-0001.html>


More information about the ghc-commits mailing list