diff options
| author | Alec Theriault <alec.theriault@gmail.com> | 2018-07-20 00:21:48 -0700 |
|---|---|---|
| committer | Alec Theriault <alec.theriault@gmail.com> | 2018-11-06 12:03:24 -0800 |
| commit | 7c77914a3d47b78e690c820b0964a8f14b886cc9 (patch) | |
| tree | fe3d4a408e7a56d642c04780aadfc204a334b36f /haddock-library/src/Documentation/Haddock/Parser.hs | |
| parent | 59be4f386c3803aeab7a9b2bc9bca49f1fe113db (diff) | |
Accept test case
Diffstat (limited to 'haddock-library/src/Documentation/Haddock/Parser.hs')
| -rw-r--r-- | haddock-library/src/Documentation/Haddock/Parser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-library/src/Documentation/Haddock/Parser.hs b/haddock-library/src/Documentation/Haddock/Parser.hs index 0992dbbc..f6c12d46 100644 --- a/haddock-library/src/Documentation/Haddock/Parser.hs +++ b/haddock-library/src/Documentation/Haddock/Parser.hs @@ -796,7 +796,7 @@ hyperlink = choice' [ angleBracketLink, markdownLink, autoUrl ] angleBracketLink :: Parser (DocH mod a) angleBracketLink = - DocHyperlink . flip Hyperlink Nothing . T.unpack . removeEscapes + DocHyperlink . makeLabeled (\s -> Hyperlink s . fmap DocString) <$> disallowNewline ("<" *> takeUntil ">") markdownLink :: Parser (DocH mod Identifier) |