diff options
| author | Simon Hengel <sol@typeful.net> | 2012-04-04 16:32:11 +0200 |
|---|---|---|
| committer | Simon Hengel <sol@typeful.net> | 2012-05-27 08:48:24 +0200 |
| commit | b19a4bea999c684e092e0ea0feaf02ff8747d2a5 (patch) | |
| tree | 9a40b7eba5a0cd6644953b3ddeae335cef728fd2 /src/Haddock/Utils.hs | |
| parent | 2a931d32cfdbd20d4da0cff6415a3aaf47823938 (diff) | |
Add an optional label to URLs
Diffstat (limited to 'src/Haddock/Utils.hs')
| -rw-r--r-- | src/Haddock/Utils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs index 3a2f1d28..ad61e88a 100644 --- a/src/Haddock/Utils.hs +++ b/src/Haddock/Utils.hs @@ -416,7 +416,7 @@ markup m (DocUnorderedList ds) = markupUnorderedList m (map (markup m) ds) markup m (DocOrderedList ds) = markupOrderedList m (map (markup m) ds) markup m (DocDefList ds) = markupDefList m (map (markupPair m) ds) markup m (DocCodeBlock d) = markupCodeBlock m (markup m d) -markup m (DocURL url) = markupURL m url +markup m (DocHyperlink l) = markupHyperlink m l markup m (DocAName ref) = markupAName m ref markup m (DocPic img) = markupPic m img markup m (DocExamples e) = markupExample m e @@ -443,7 +443,7 @@ idMarkup = Markup { markupOrderedList = DocOrderedList, markupDefList = DocDefList, markupCodeBlock = DocCodeBlock, - markupURL = DocURL, + markupHyperlink = DocHyperlink, markupAName = DocAName, markupPic = DocPic, markupExample = DocExamples |