diff options
| author | Simon Hengel <sol@typeful.net> | 2014-06-18 11:01:18 +0800 |
|---|---|---|
| committer | Simon Hengel <sol@typeful.net> | 2014-06-18 11:01:18 +0800 |
| commit | b973784c65c4d20c893b5377a7ced557d0a420cf (patch) | |
| tree | 8b2adbcbe08d8ddbe97fe488160e0452f5ca04a4 /haddock-library/src/Documentation/Haddock/Parser.hs | |
| parent | fc160334cbeea731301fc723d1da5577dc2e40a1 (diff) | |
Compatibility with older versions of base and bytestring
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 3d146d33..f0597462 100644 --- a/haddock-library/src/Documentation/Haddock/Parser.hs +++ b/haddock-library/src/Documentation/Haddock/Parser.hs @@ -437,7 +437,7 @@ autoUrl = mkLink <$> url where url = mappend <$> ("http://" <|> "https://" <|> "ftp://") <*> takeWhile1 (not . isSpace) mkLink :: BS.ByteString -> DocH mod a - mkLink s = case BS.unsnoc s of + mkLink s = case unsnoc s of Just (xs, x) | x `elem` ",.!?" -> DocHyperlink (Hyperlink (decodeUtf8 xs) Nothing) <> DocString [x] _ -> DocHyperlink (Hyperlink (decodeUtf8 s) Nothing) |