aeson-match-qq 1.2.0 → 1.2.1

raw patch · 5 files changed

+17/−7 lines, 5 files

Files

CHANGELOG.markdown +5/−0
aeson-match-qq.cabal +3/−5
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.2.1+=====++  * Proper Unicode support (https://github.com/supki/aeson-match-qq/pull/14)+ 1.2.0 =====

aeson-match-qq.cabal view

@@ -1,20 +1,18 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.31.2.+-- This file has been generated from package.yaml by hpack version 0.34.4. -- -- see: https://github.com/sol/hpack------ hash: 4c785585b04d7380e3612f9a3011a3bbcccf7b0d155941ab58f79e69afb6a1ba  name:           aeson-match-qq-version:        1.2.0+version:        1.2.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 2020+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

@@ -24,7 +24,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

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