aeson-match-qq 1.4.0 → 1.4.1

raw patch · 5 files changed

+17/−5 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

CHANGELOG.markdown +5/−0
aeson-match-qq.cabal +3/−3
src/Aeson/Match/QQ.hs +2/−1
src/Aeson/Match/QQ/Internal/Match.hs +4/−1
test/Aeson/Match/QQSpec.hs +3/−0

CHANGELOG.markdown view

@@ -1,3 +1,8 @@+1.4.1+=====++  * Proper Unicode support (https://github.com/supki/aeson-match-qq/pull/14)+ 1.4.0 =====

aeson-match-qq.cabal view

@@ -4,17 +4,17 @@ -- -- see: https://github.com/sol/hpack ----- hash: eeb53a9a8a4433aa06146edfc817e03b1cef449f46c1866e6302e4f9bdfee782+-- hash: 5d1f836e56344a26982a1f67c2ccb2010e6ac6be94d88f239c4b15c9fe108df6  name:           aeson-match-qq-version:        1.4.0+version:        1.4.1 synopsis:       Declarative JSON matchers. description:    See README.markdown category:       Web homepage:       https://github.com/supki/aeson-match-qq#readme bug-reports:    https://github.com/supki/aeson-match-qq/issues maintainer:     matvey.aksenov@gmail.com-copyright:      Matvey Aksenov 2021+copyright:      Matvey Aksenov 2022 license:        BSD2 license-file:   LICENSE build-type:     Simple

src/Aeson/Match/QQ.hs view

@@ -18,6 +18,7 @@   ) where  import           Data.String (IsString(..))+import qualified Data.Text.Encoding as Text import           Language.Haskell.TH.Quote (QuasiQuoter(..)) import           Language.Haskell.TH.Syntax (Lift(..)) @@ -29,7 +30,7 @@ qq :: QuasiQuoter qq = QuasiQuoter   { quoteExp = \str ->-      case parse (fromString str) of+      case parse (Text.encodeUtf8 (fromString str)) of         Left err ->           error ("Aeson.Match.QQ.qq: " ++ err)         Right val ->

src/Aeson/Match/QQ/Internal/Match.hs view

@@ -26,7 +26,10 @@ import           Aeson.Match.QQ.Internal.Value (Value(..), Box(..), TypeSig(..), Type(..), Nullable(..))  -match :: Value Aeson.Value -> Aeson.Value -> Validation (NonEmpty VE) (HashMap Text Aeson.Value)+match+  :: Value Aeson.Value+  -> Aeson.Value+  -> Validation (NonEmpty VE) (HashMap Text Aeson.Value) match =   go []  where

test/Aeson/Match/QQSpec.hs view

@@ -122,6 +122,9 @@             , extendable = False             }) +    it "#13" $+      [qq| "Слава Україні" |] `shouldMatch` [aesonQQ| "Слава Україні" |]+ newtype ToEncoding a = ToEncoding { unToEncoding :: a }     deriving (Show, Eq, Num)