From a1b0a965e354def3ea9ca290539806bc003d91a7 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Mon, 18 Jul 2022 12:38:03 +1000
Subject: removing hackage url for ids
---
haddock-api/src/Haddock/Backends/Org.hs | 26 +++++++-------------------
1 file changed, 7 insertions(+), 19 deletions(-)
(limited to 'haddock-api')
diff --git a/haddock-api/src/Haddock/Backends/Org.hs b/haddock-api/src/Haddock/Backends/Org.hs
index f0b91b50..7460be4a 100644
--- a/haddock-api/src/Haddock/Backends/Org.hs
+++ b/haddock-api/src/Haddock/Backends/Org.hs
@@ -471,7 +471,7 @@ ppTyClDecl (DataDecl _ (L _ name) tcdTyVars _ defn@(HsDataDefn { dd_ND = nd, dd_
)
: if gadt then [plaintext " where"] else []
)
- (cIdPaths path name ++ hackageUrlProp path name)
+ (cIdPaths path name)
]
++ ppDocForDecl docs (Just level)
++ ppDataDefn defn subdocs path (level + 1)
@@ -494,7 +494,7 @@ ppTyClDecl (SynDecl _ (L _ name) tcdTyVars _fixity (L _ rhs)) docs _ path level
)
++ ppHsType rhs
)
- (cIdPaths path name ++ hackageUrlProp path name)
+ (cIdPaths path name)
]
++ ppDocForDecl docs (Just level)
-- class
@@ -509,7 +509,7 @@ ppTyClDecl (ClassDecl {..}) docs subdocs path level =
, intersperse Whitespace (map (Plain . ppName) (tyvarNames tcdTyVars))
]
)
- (cIdPaths path (unLoc tcdLName) ++ hackageUrlProp path (unLoc tcdLName))
+ (cIdPaths path (unLoc tcdLName))
]
++ ppDocForDecl docs (Just level)
-- TODO: do we need an aDoc here instead of M.empty?
@@ -528,7 +528,7 @@ ppTyClDecl (FamDecl _ (FamilyDecl _ (ClosedTypeFamily mbEqns) TopLevel (L _ name
++ maybe [] ppLInjectivityAnn mbInj
++ [plaintext " where"]
)
- (cIdPaths path name ++ hackageUrlProp path name)
+ (cIdPaths path name)
: ppDocForDecl docs (Just level)
++ concatMap (\x -> ppLTyFamInstEqn x subdocs path (level + 1))
(fromMaybe [] mbEqns)
@@ -543,7 +543,7 @@ ppTyClDecl (FamDecl _ (FamilyDecl _ info TopLevel (L _ name) tyvars _fixity (L _
++ ppFamilyResultSig resSig op
++ maybe [] ppLInjectivityAnn mbInj
)
- (cIdPaths path name ++ hackageUrlProp path name)
+ (cIdPaths path name)
: ppDocForDecl docs (Just level)
where
pre = case info of
@@ -727,9 +727,7 @@ ppSig (TypeSig _ lhs rhs) (doc, aDoc) _ path level =
]
++ (ppHsSigType hsSig)
)
- ( concatMap (cIdPaths path . unLoc) lhs
- ++ concatMap (hackageUrlProp path . unLoc) lhs
- )
+ (concatMap (cIdPaths path . unLoc) lhs)
: (if M.null aDoc then [] else ppHsSigTypeDoc hsSig aDoc)
++ ppDocumentation doc (Just level)
where hsSig = unLoc (dropWildCards rhs)
@@ -762,9 +760,7 @@ ppSig (PatSynSig _ names (L _ hsSig)) (doc, aDoc) _ path level =
]
++ (ppHsSigType hsSig)
)
- ( concatMap (cIdPaths path . unLoc) names
- ++ concatMap (hackageUrlProp path . unLoc) names
- )
+ (concatMap (cIdPaths path . unLoc) names)
: (if M.null aDoc then [] else ppHsSigTypeDoc hsSig aDoc)
++ ppDocumentation doc (Just level)
@@ -1014,14 +1010,6 @@ hackageModuleUrl pkg mdl =
hackagePackageUrl pkg ++ "/docs/" ++ dotsToDashes mdl ++ ".html"
where dotsToDashes = map (\c -> if c == '.' then '-' else c)
-hackageUrl :: String -> String -> String -> String
--- module should be of the form GHC-Hs-Decls instead of GHC.Hs.Decls
-hackageUrl pkg mdl id = hackageModuleUrl pkg mdl ++ "#t:" ++ id
-
-hackageUrlProp :: ModPath -> DocName -> Properties
-hackageUrlProp (pkg, mdl) name =
- hackageProp (hackageUrl pkg mdl (docNameToString name))
-
-- * Orphan instances for show
instance Show DocName where
--
cgit v1.2.3