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 /ghc | |
| 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 'ghc')
| -rw-r--r-- | ghc/GHCi/UI.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index 2f0dfcde8d..0ac6fe4d9c 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -122,8 +122,8 @@ import Data.List ( elemIndices, find, group, intercalate, intersperse, isPrefixOf, isSuffixOf, nub, partition, sort, sortBy, (\\) ) import qualified Data.Set as S import Data.Maybe -import Data.Map (Map) import qualified Data.Map as M +import Data.IntMap.Strict (IntMap) import qualified Data.IntMap.Strict as IntMap import Data.Time.LocalTime ( getZonedTime ) import Data.Time.Format ( formatTime, defaultTimeLocale ) @@ -1833,7 +1833,7 @@ data DocComponents = DocComponents { docs :: Maybe HsDocString -- ^ subject's haddocks , sigAndLoc :: Maybe SDoc -- ^ type signature + category + location - , argDocs :: Map Int HsDocString -- ^ haddocks for arguments + , argDocs :: IntMap HsDocString -- ^ haddocks for arguments } buildDocComponents :: GHC.GhcMonad m => String -> Name -> m DocComponents |