diff options
| author | David Waern <david.waern@gmail.com> | 2012-07-23 16:50:40 +0200 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2012-07-23 16:50:40 +0200 |
| commit | c3811c56988ecae6c3d3b2c4c202474de012e9ed (patch) | |
| tree | c7d897e98c3523d056d38745b794c681b30a38f6 /src/Haddock/Backends/Hoogle.hs | |
| parent | 83a2a6ab67b25eec42c50b99b0b594313b8abe44 (diff) | |
| parent | 0730c1b4088fd5d2c36671b0adf3c9e11222e233 (diff) | |
Merge branch 'dev' of https://github.com/sol/haddock into ghc-7.6
Conflicts:
src/Haddock/InterfaceFile.hs
Diffstat (limited to 'src/Haddock/Backends/Hoogle.hs')
| -rw-r--r-- | src/Haddock/Backends/Hoogle.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs index 55f6ac1d..4949daa1 100644 --- a/src/Haddock/Backends/Hoogle.hs +++ b/src/Haddock/Backends/Hoogle.hs @@ -254,7 +254,7 @@ markupTag dflags = Markup { markupOrderedList = box (TagL 'o'), markupDefList = box (TagL 'u') . map (\(a,b) -> TagInline "i" a : Str " " : b), markupCodeBlock = box TagPre, - markupURL = box (TagInline "a") . str, + markupHyperlink = \(Hyperlink url mLabel) -> (box (TagInline "a") . str) (fromMaybe url mLabel), markupAName = const $ str "", markupExample = box TagPre . str . unlines . map exampleToString } |