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/Parse.y | |
| parent | 2a931d32cfdbd20d4da0cff6415a3aaf47823938 (diff) | |
Add an optional label to URLs
Diffstat (limited to 'src/Haddock/Parse.y')
| -rw-r--r-- | src/Haddock/Parse.y | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Parse.y b/src/Haddock/Parse.y index e36e8416..0cc783ee 100644 --- a/src/Haddock/Parse.y +++ b/src/Haddock/Parse.y @@ -10,7 +10,7 @@ module Haddock.Parse where import Haddock.Lex -import Haddock.Types (Doc(..), Example(Example)) +import Haddock.Types (Doc(..), Example(Example), Hyperlink(..)) import Haddock.Doc import HsSyn import RdrName @@ -107,7 +107,7 @@ seq1 :: { Doc RdrName } elem1 :: { Doc RdrName } : STRING { DocString $1 } | '/../' { DocEmphasis (DocString $1) } - | URL { DocURL $1 } + | URL { DocHyperlink (Hyperlink $1 Nothing) } | PIC { DocPic $1 } | ANAME { DocAName $1 } | IDENT { DocIdentifier $1 } |