diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-02-08 12:54:33 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2021-02-08 12:54:33 -0500 |
| commit | e57d82dde105ffbfcb27ab261041c97b4dd0150a (patch) | |
| tree | e4716c076ef5f05d63235bbf475f939fa1ed402f /haddock-library/src/Documentation/Haddock/Markup.hs | |
| parent | b995bfe84f9766e23ff78d7ccd520ec7d8cdbebc (diff) | |
| parent | 4f1a309700106b62831309931e449a603093f521 (diff) | |
Merge remote-tracking branch 'upstream/ghc-head' into ghc-head
Diffstat (limited to 'haddock-library/src/Documentation/Haddock/Markup.hs')
| -rw-r--r-- | haddock-library/src/Documentation/Haddock/Markup.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haddock-library/src/Documentation/Haddock/Markup.hs b/haddock-library/src/Documentation/Haddock/Markup.hs index 365041ee..0919737f 100644 --- a/haddock-library/src/Documentation/Haddock/Markup.hs +++ b/haddock-library/src/Documentation/Haddock/Markup.hs @@ -16,7 +16,7 @@ markup m (DocString s) = markupString m s markup m (DocParagraph d) = markupParagraph m (markup m d) markup m (DocIdentifier x) = markupIdentifier m x markup m (DocIdentifierUnchecked x) = markupIdentifierUnchecked m x -markup m (DocModule mod0) = markupModule m mod0 +markup m (DocModule (ModLink mo l)) = markupModule m (ModLink mo (fmap (markup m) l)) markup m (DocWarning d) = markupWarning m (markup m d) markup m (DocEmphasis d) = markupEmphasis m (markup m d) markup m (DocBold d) = markupBold m (markup m d) @@ -78,7 +78,7 @@ plainMarkup plainMod plainIdent = Markup { markupAppend = (++), markupIdentifier = plainIdent, markupIdentifierUnchecked = plainMod, - markupModule = id, + markupModule = \(ModLink m lbl) -> fromMaybe m lbl, markupWarning = id, markupEmphasis = id, markupBold = id, |