From d6aec63c009c4e57181900eb03847d7dc0fc3c7c Mon Sep 17 00:00:00 2001 From: Mateusz Kowalczyk Date: Mon, 28 Jul 2014 13:25:43 +0200 Subject: Catch mid-line URLs. Fixes #314. --- haddock-library/test/Documentation/Haddock/ParserSpec.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'haddock-library/test/Documentation') diff --git a/haddock-library/test/Documentation/Haddock/ParserSpec.hs b/haddock-library/test/Documentation/Haddock/ParserSpec.hs index a8c2199a..5181a3f3 100644 --- a/haddock-library/test/Documentation/Haddock/ParserSpec.hs +++ b/haddock-library/test/Documentation/Haddock/ParserSpec.hs @@ -137,6 +137,10 @@ spec = do "http://example.com/? Some other sentence." `shouldParseTo` hyperlink "http://example.com/" Nothing <> "? Some other sentence." + it "autolinks URLs occuring mid-sentence with multiple ‘/’s" $ do + "foo https://example.com/example bar" `shouldParseTo` + "foo " <> hyperlink "https://example.com/example" Nothing <> " bar" + context "when parsing pictures" $ do let picture :: String -> Maybe String -> Doc String picture uri = DocPic . Picture uri -- cgit v1.2.3