Catch mid-line URLs. Fixes #314.

1 files changed, 4 insertions, 0 deletions

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