modern-uri 0.3.0.0 → 0.3.0.1

raw patch · 5 files changed

+14/−3 lines, 5 filesdep ~template-haskellPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: template-haskell

API changes (from Hackage documentation)

Files

CHANGELOG.md +4/−0
Text/URI/Parser/ByteString.hs +1/−0
Text/URI/Parser/Text.hs +1/−0
modern-uri.cabal +3/−3
tests/Text/URISpec.hs +5/−0

CHANGELOG.md view

@@ -1,3 +1,7 @@+## Modern URI 0.3.0.1++* Allow superfluous `&` right after question sign in query parameters.+ ## Modern URI 0.3.0.0  * Uses Megaparsec 7. Visible API changes amount to an adjustment in

Text/URI/Parser/ByteString.hs view

@@ -175,6 +175,7 @@ pQuery :: MonadParsec e ByteString m => m [QueryParam] pQuery = do   void (char 63)+  void (optional (char 38))   fmap catMaybes . flip sepBy (char 38) . label "query parameter" $ do     let p = many (pchar' <|> char 47 <|> char 63)     k' <- p

Text/URI/Parser/Text.hs view

@@ -125,6 +125,7 @@ pQuery :: MonadParsec e Text m => m [QueryParam] pQuery = do   void (char '?')+  void (optional (char '&'))   fmap catMaybes . flip sepBy (char '&') . label "query parameter" $ do     let p = many (pchar' <|> char '/' <|> char '?')     k' <- p

modern-uri.cabal view

@@ -1,7 +1,7 @@ name:                 modern-uri-version:              0.3.0.0+version:              0.3.0.1 cabal-version:        1.18-tested-with:          GHC==7.10.3, GHC==8.0.2, GHC==8.2.2, GHC==8.4.3+tested-with:          GHC==7.10.3, GHC==8.0.2, GHC==8.2.2, GHC==8.4.3, GHC==8.6.1 license:              BSD3 license-file:         LICENSE.md author:               Mark Karpov <markkarpov92@gmail.com>@@ -37,7 +37,7 @@                     , profunctors      >= 5.2.1 && < 6.0                     , reflection       >= 2.0 && < 3.0                     , tagged           >= 0.8 && < 0.9-                    , template-haskell >= 2.10 && < 2.14+                    , template-haskell >= 2.10 && < 2.15                     , text             >= 0.2 && < 1.3   if !impl(ghc >= 8.0)     build-depends:    semigroups       == 0.18.*

tests/Text/URISpec.hs view

@@ -216,6 +216,11 @@         , uriQuery = []         , uriFragment = Nothing         }+    it "parses URIs with superfluous '&' before query parameters" $ do+      uri <- mkTestURI+      let s = "https://mark%3a%40:secret:%40@github.com:443/mrkkrp/modern-uri+%3a@?&foo:@=bar+:@#fragment:@"+      parse urip "" s `shouldParse` uri+   describe "render" $ do     it "sort of works" $       fmap URI.render mkTestURI `shouldReturn` testURI