Skip to content
This repository has been archived by the owner on Aug 3, 2024. It is now read-only.

Commit

Permalink
Remove fake export of FUN from Prelude
Browse files Browse the repository at this point in the history
This prevents `data FUN` from being shown at the top of the Prelude docs. Fixes
\#23920 on GHC.
  • Loading branch information
FinleyMcIlwaine committed Sep 5, 2023
1 parent 3949204 commit 1130973
Showing 1 changed file with 0 additions and 3 deletions.
3 changes: 0 additions & 3 deletions haddock-api/src/Haddock/Interface/Create.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit 1130973

Please sign in to comment.