From 1130973f07aecc37a37943f4b1cc529aabd15e61 Mon Sep 17 00:00:00 2001
From: Finley McIlwaine <finleymcilwaine@gmail.com>
Date: Tue, 5 Sep 2023 13:06:57 -0700
Subject: [PATCH] Remove fake export of `FUN` from Prelude

This prevents `data FUN` from being shown at the top of the Prelude docs. Fixes
\#23920 on GHC.
---
 haddock-api/src/Haddock/Interface/Create.hs | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs
index c55e902ef7..70676d9714 100644
--- a/haddock-api/src/Haddock/Interface/Create.hs
+++ b/haddock-api/src/Haddock/Interface/Create.hs
@@ -119,7 +119,6 @@ createInterface1 flags unit_state mod_sum mod_iface ifaces inst_ifaces (instance
     -- See Note [Exporting built-in items]
     special_exports
       | mdl == gHC_PRIM   = funAvail
-      | mdl == pRELUDE    = funAvail
       | otherwise         = []
     !exportedNames = concatMap availNames
                                (special_exports <> mi_exports mod_iface)
@@ -176,8 +175,6 @@ createInterface1 flags unit_state mod_sum mod_iface ifaces inst_ifaces (instance
   let builtinTys = DsiSectionHeading 1 (WithHsDocIdentifiers (mkGeneratedHsDocString "Builtin syntax") [])
       bonus_ds mods
         | mdl == gHC_PRIM   = [ builtinTys, DsiExports funAvail ] <> mods
-        | mdl == pRELUDE    = let (hs, rest) = splitAt 2 mods
-                              in hs <> [ DsiExports funAvail ] <> rest
         | otherwise         = mods
 
   let
-- 
GitLab