commonmark-extensions 0.2.5.2 → 0.2.5.3
raw patch · 3 files changed
+10/−3 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- changelog.md +6/−0
- commonmark-extensions.cabal +1/−1
- src/Commonmark/Extensions/RebaseRelativePaths.hs +3/−2
changelog.md view
@@ -1,5 +1,11 @@ # Changelog for commonmark-extensions +## 0.2.5.3++ * Fix rebase_relative_paths extension so it works with URLs with+ non-ASCII characters (#148). Previously these would not be properly+ detected as absolute URIs.+ ## 0.2.5.2 * Improve autolinks extension (#147).
commonmark-extensions.cabal view
@@ -1,5 +1,5 @@ name: commonmark-extensions-version: 0.2.5.2+version: 0.2.5.3 synopsis: Pure Haskell commonmark parser. description: This library provides some useful extensions to core commonmark
src/Commonmark/Extensions/RebaseRelativePaths.hs view
@@ -7,6 +7,7 @@ import Commonmark.Types import Commonmark.Syntax import Commonmark.Inlines+import Data.Char (isAscii) import Data.Text (Text) import qualified Data.Text as T import Data.Maybe (fromMaybe)@@ -14,7 +15,7 @@ import System.FilePath import qualified System.FilePath.Windows as Windows import qualified System.FilePath.Posix as Posix-import Network.URI (URI (uriScheme), parseURI)+import Network.URI (URI (uriScheme), parseURI, escapeURIString) import qualified Data.Set as Set rebaseRelativePathsSpec@@ -128,7 +129,7 @@ -- | Check if the string is a valid URL with a IANA or frequently used but -- unofficial scheme (see @schemes@). isURI :: T.Text -> Bool-isURI = maybe False hasKnownScheme . parseURI . T.unpack+isURI = maybe False hasKnownScheme . parseURI . escapeURIString isAscii . T.unpack where hasKnownScheme = (`Set.member` schemes) . T.toLower . T.filter (/= ':') . T.pack . uriScheme