diff options
| author | Alec Theriault <alec.theriault@gmail.com> | 2018-11-06 13:53:30 -0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2018-11-06 13:53:30 -0800 |
| commit | b62c9542480d629bb482f5394dec2fdd5a48af24 (patch) | |
| tree | acb4c9df2f760ac930ea209f9d596e09a95df9d0 /haddock-api/src/Haddock/Backends/Hoogle.hs | |
| parent | 82b8f491e18d707f67857bcb170b2147fa275ccc (diff) | |
| parent | aeebb79290fb3983271ab9e3fe95dbdae7caccde (diff) | |
Merge pull request #875 from harpocrates/feature/markup-in-hyperlinks
Inline markup in markdown-style links and images
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Hoogle.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Hoogle.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hoogle.hs b/haddock-api/src/Haddock/Backends/Hoogle.hs index eb93ade2..d6a6a12d 100644 --- a/haddock-api/src/Haddock/Backends/Hoogle.hs +++ b/haddock-api/src/Haddock/Backends/Hoogle.hs @@ -336,7 +336,7 @@ markupTag dflags = Markup { markupOrderedList = box (TagL 'o'), markupDefList = box (TagL 'u') . map (\(a,b) -> TagInline "i" a : Str " " : b), markupCodeBlock = box TagPre, - markupHyperlink = \(Hyperlink url mLabel) -> (box (TagInline "a") . str) (fromMaybe url mLabel), + markupHyperlink = \(Hyperlink url mLabel) -> box (TagInline "a") (fromMaybe (str url) mLabel), markupAName = const $ str "", markupProperty = box TagPre . str, markupExample = box TagPre . str . unlines . map exampleToString, |