From 64b2aeeee176979bb2ab02846a05e46662a27072 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Wed, 14 Sep 2022 17:12:56 +1000
Subject: removed custom ids for packages and modules

they are not really used in links
---
 haddock-api/src/Haddock/Backends/Org.hs | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/haddock-api/src/Haddock/Backends/Org.hs b/haddock-api/src/Haddock/Backends/Org.hs
index c1efefa1..2f6ff7cf 100644
--- a/haddock-api/src/Haddock/Backends/Org.hs
+++ b/haddock-api/src/Haddock/Backends/Org.hs
@@ -207,22 +207,18 @@ toOrgDocument title mbPrologue pkgId ifaces =
 processPackage
   :: String -> Maybe (Doc RdrName) -> String -> [Interface] -> [OrgBlock]
 processPackage title mbPrologue pkgId ifaces =
-  Heading packageLevel
-          [plaintext title]
-          (cIdProp pkgId ++ hackageProp (hackagePackageUrl pkgId))
+  Heading packageLevel [plaintext title] (hackageProp (hackagePackageUrl pkgId))
     : Paragraph [plaintext $ maybe [] removeMarkup' mbPrologue]
     : concatMap processModule (sortOn ifaceMod ifaces)
 
 processModule :: Interface -> [OrgBlock]
 processModule iface =
   let
-    mdl     = moduleString $ ifaceMod iface
-    pkg     = cleanPkgStr $ unitString $ moduleUnit $ ifaceMod iface
-    path    = (pkg, mdl)
-    heading = Heading
-      modLevel
-      [plaintext mdl]
-      (cIdProp (pkg ++ "." ++ mdl) ++ hackageProp (hackageModuleUrl pkg mdl))
+    mdl  = moduleString $ ifaceMod iface
+    pkg  = cleanPkgStr $ unitString $ moduleUnit $ ifaceMod iface
+    path = (pkg, mdl)
+    heading =
+      Heading modLevel [plaintext mdl] (hackageProp (hackageModuleUrl pkg mdl))
     description = ppDocumentation (ifaceRnDoc iface) (Just modLevel)
     exported =
       evalState (mapM (processExport path) (ifaceRnExportItems iface)) modLevel
-- 
cgit v1.2.3