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-library/test/Documentation/Haddock | |
| 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-library/test/Documentation/Haddock')
| -rw-r--r-- | haddock-library/test/Documentation/Haddock/ParserSpec.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/haddock-library/test/Documentation/Haddock/ParserSpec.hs b/haddock-library/test/Documentation/Haddock/ParserSpec.hs index 0449c917..6269184a 100644 --- a/haddock-library/test/Documentation/Haddock/ParserSpec.hs +++ b/haddock-library/test/Documentation/Haddock/ParserSpec.hs @@ -37,7 +37,7 @@ parseParas = overDoc Parse.toRegular . Parse.parseParas Nothing parseString :: String -> Doc String parseString = Parse.toRegular . Parse.parseString -hyperlink :: String -> Maybe String -> Doc String +hyperlink :: String -> Maybe (Doc String) -> Doc String hyperlink url = DocHyperlink . Hyperlink url main :: IO () @@ -202,6 +202,10 @@ spec = do "[some label]( url)" `shouldParseTo` "[some label]( url)" + it "allows inline markup in the label" $ do + "[something /emphasized/](url)" `shouldParseTo` + hyperlink "url" (Just ("something " <> DocEmphasis "emphasized")) + context "when URL is on a separate line" $ do it "allows URL to be on a separate line" $ do "[some label]\n(url)" `shouldParseTo` |