diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-07-18 12:29:27 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-07-21 13:00:43 +1000 |
| commit | a65f607c0c17df064dba3d65446e2cc05bc9d4c4 (patch) | |
| tree | ed257e779e9c9cd76ad11426df0a111cdfd75ce9 /haddock-api/src/Haddock/Backends/Org | |
| parent | 0fb8735cd2a324f973547d70077ffdacd3d5c9d7 (diff) | |
Adding hackage url to top level decl properties
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Org')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Org/Types.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 |