hedgehog-extras 0.4.7.1 → 0.4.8.0
raw patch · 2 files changed
+5/−11 lines, 2 filesdep −unordered-containersdep ~basePVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependencies removed: unordered-containers
Dependency ranges changed: base
API changes (from Hackage documentation)
- Hedgehog.Extras.Stock.Aeson: rewriteObject :: (HashMap Text Value -> HashMap Text Value) -> Value -> Value
+ Hedgehog.Extras.Stock.Aeson: rewriteObject :: (KeyMap Value -> KeyMap Value) -> Value -> Value
Files
hedgehog-extras.cabal view
@@ -1,7 +1,7 @@ cabal-version: 2.4 name: hedgehog-extras-version: 0.4.7.1+version: 0.4.8.0 synopsis: Supplemental library for hedgehog description: Supplemental library for hedgehog. category: Test@@ -19,7 +19,7 @@ common aeson { build-depends: aeson >= 2.1.0.0 } common aeson-pretty { build-depends: aeson-pretty >= 0.8.5 } common async { build-depends: async }-common base { build-depends: base >= 4.12 && < 4.19 }+common base { build-depends: base >= 4.12 && < 4.20 } common bytestring { build-depends: bytestring } common deepseq { build-depends: deepseq } common Diff { build-depends: Diff }@@ -40,7 +40,6 @@ common time { build-depends: time >= 1.9.1 } common transformers { build-depends: transformers } common unliftio { build-depends: unliftio }-common unordered-containers { build-depends: unordered-containers } common yaml { build-depends: yaml } common zlib { build-depends: zlib } @@ -84,7 +83,6 @@ time, transformers, unliftio,- unordered-containers, Win32, yaml, zlib,
src/Hedgehog/Extras/Stock/Aeson.hs view
@@ -4,18 +4,14 @@ ) where import Data.Aeson+import Data.Aeson.KeyMap (KeyMap) import Data.Functor-import Data.HashMap.Lazy-import Data.Text-import Prelude (($), (.)) -import qualified Data.Aeson.KeyMap as KM- -- | Rewrite a JSON object to another JSON object using the function 'f'. -- -- All other JSON values are preserved.-rewriteObject :: (HashMap Text Value -> HashMap Text Value) -> Value -> Value-rewriteObject f (Object hm) = Object (KM.fromHashMapText . f . KM.toHashMapText $ hm)+rewriteObject :: (KeyMap Value -> KeyMap Value) -> Value -> Value+rewriteObject f (Object hm) = Object (f hm) rewriteObject _ v = v -- | Rewrite each element of a JSON array using the function 'f'.