From abdb7d9f6af3d35c991e421481857bbd6b4cddb6 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Mon, 18 Jul 2022 12:29:27 +1000 Subject: Adding hackage url to top level decl properties --- haddock-api/src/Haddock/Backends/Org/Types.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'haddock-api/src/Haddock/Backends/Org') diff --git a/haddock-api/src/Haddock/Backends/Org/Types.hs b/haddock-api/src/Haddock/Backends/Org/Types.hs index 81f2add5..3bfc8619 100644 --- a/haddock-api/src/Haddock/Backends/Org/Types.hs +++ b/haddock-api/src/Haddock/Backends/Org/Types.hs @@ -187,6 +187,9 @@ orgToString = fullRender (PageMode True) 0 1 txtPrinter "" cIdProp :: String -> Properties cIdProp cid = [("CUSTOM_ID", cid)] +hackageProp :: String -> Properties +hackageProp url = [("Hackage", url)] + cIdsProp :: [String] -> Properties cIdsProp cids = map (\cid -> ("CUSTOM_ID", cid)) cids -- cgit v1.2.3