diff options
| author | Luke Lau <luke_lau@icloud.com> | 2020-05-22 17:34:57 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2021-03-10 15:55:09 -0500 |
| commit | 8a59f49ae2204dbf58ef50ea8c0a50ee2c7aa64a (patch) | |
| tree | be7327cba2bc8b2d3187baebb92986a20e61d7af /compiler/GHC/Iface/Make.hs | |
| parent | e687ba83b0506bc800ceb79e6ee8cb0f8ed31ed6 (diff) | |
| download | haskell-8a59f49ae2204dbf58ef50ea8c0a50ee2c7aa64a.tar.gz | |
template-haskell: Add putDoc, getDoc, withDecDoc and friends
This adds two new methods to the Quasi class, putDoc and getDoc. They
allow Haddock documentation to be added to declarations, module headers,
function arguments and class/type family instances, as well as looked
up.
It works by building up a map of names to attach pieces of
documentation to, which are then added in the extractDocs function in
GHC.HsToCore.Docs. However because these template haskell names need to
be resolved to GHC names at the time they are added, putDoc cannot
directly add documentation to declarations that are currently being
spliced. To remedy this, withDecDoc/withDecsDoc wraps the operation with
addModFinalizer, and provides a more ergonomic interface for doing so.
Similarly, the funD_doc, dataD_doc etc. combinators provide a more
ergonomic interface for documenting functions and their arguments
simultaneously.
This also changes ArgDocMap to use an IntMap rather than an Map Int, for
efficiency.
Part of the work towards #5467
Diffstat (limited to 'compiler/GHC/Iface/Make.hs')
| -rw-r--r-- | compiler/GHC/Iface/Make.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Iface/Make.hs b/compiler/GHC/Iface/Make.hs index 53f0032f28..323f69f0d3 100644 --- a/compiler/GHC/Iface/Make.hs +++ b/compiler/GHC/Iface/Make.hs @@ -212,7 +212,7 @@ mkIfaceTc hsc_env safe_mode mod_details usages <- mkUsageInfo hsc_env this_mod (imp_mods imports) used_names dep_files merged pluginModules - let (doc_hdr', doc_map, arg_map) = extractDocs tc_result + (doc_hdr', doc_map, arg_map) <- extractDocs tc_result let partial_iface = mkIface_ hsc_env this_mod hsc_src |