mmark 0.0.4.2 → 0.0.4.3

raw patch · 5 files changed

+20/−4 lines, 5 filesdep ~modern-uriPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: modern-uri

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• Text/MMark/Parser.hs +3/−1
• Text/MMark/Util.hs +5/−0
• mmark.cabal +3/−3
• tests/Text/MMark/ExtensionSpec.hs +5/−0

@@ -1,3 +1,7 @@+## MMark 0.0.4.3++* Compiles with `modern-uri-0.2.0.0` and later.+ ## MMark 0.0.4.2  * Made parsing of emphasis-like markup more flexible and forgiving, see

@@ -35,12 +35,14 @@ import Data.Semigroup (Semigroup (..)) import Data.Text (Text) import Data.Void+import Lens.Micro ((^.)) import Text.MMark.Parser.Internal import Text.MMark.Type import Text.MMark.Util import Text.Megaparsec hiding (parse, State (..)) import Text.Megaparsec.Char hiding (eol) import Text.URI (URI)+import Text.URI.Lens (uriPath) import qualified Control.Monad.Combinators.NonEmpty as NE import qualified Data.Char                  as Char import qualified Data.DList                 as DList@@ -1094,7 +1096,7 @@  isEmailUri :: URI -> Maybe Text isEmailUri uri =-  case URI.unRText <$> URI.uriPath uri of+  case URI.unRText <$> uri ^. uriPath of     [x] ->       if Email.isValid (TE.encodeUtf8 x) &&           (isNothing (URI.uriScheme uri) ||

@@ -9,6 +9,7 @@ -- -- Internal utilities. +{-# LANGUAGE CPP               #-} {-# LANGUAGE LambdaCase        #-} {-# LANGUAGE OverloadedStrings #-} @@ -62,6 +63,10 @@ headerFragment fragment = URI   { uriScheme    = Nothing   , uriAuthority = Left False+#if MIN_VERSION_modern_uri(0,2,0)+  , uriPath      = Nothing+#else   , uriPath      = []+#endif   , uriQuery     = []   , uriFragment  = URI.mkFragment fragment }

@@ -1,5 +1,5 @@ name:                 mmark-version:              0.0.4.2+version:              0.0.4.3 cabal-version:        >= 1.18 tested-with:          GHC==7.10.3, GHC==8.0.2, GHC==8.2.2 license:              BSD3@@ -42,7 +42,7 @@                     , megaparsec       >= 6.4  && < 7.0                     , microlens        >= 0.4  && < 0.5                     , microlens-th     >= 0.4  && < 0.5-                    , modern-uri       >= 0.1.2.1 && < 0.2+                    , modern-uri       >= 0.1.2.1 && < 0.3                     , mtl              >= 2.0  && < 3.0                     , parser-combinators >= 0.4 && < 1.0                     , text             >= 0.2  && < 1.3@@ -82,7 +82,7 @@                     , lucid            >= 2.6  && < 3.0                     , megaparsec       >= 6.4  && < 7.0                     , mmark-                    , modern-uri       >= 0.1.2.1 && < 0.2+                    , modern-uri       >= 0.1.2.1 && < 0.3                     , text             >= 0.2  && < 1.3   if !impl(ghc >= 8.0)     build-depends:    semigroups       == 0.18.*

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP                  #-} {-# LANGUAGE LambdaCase           #-} {-# LANGUAGE OverloadedStrings    #-} {-# OPTIONS_GHC -fno-warn-orphans #-}@@ -90,7 +91,11 @@         frag <- URI.mkFragment fragment         URI.uriScheme    uri `shouldBe` Nothing         URI.uriAuthority uri `shouldBe` Left False+#if MIN_VERSION_modern_uri(0,2,0)+        URI.uriPath      uri `shouldBe` Nothing+#else         URI.uriPath      uri `shouldBe` []+#endif         URI.uriQuery     uri `shouldBe` []         URI.uriFragment  uri `shouldBe` Just frag