From dd392e27526983833359d3ea5bf2b0b60236e991 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
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