lens-aeson 1.0.0.3 → 1.0.0.4
raw patch · 3 files changed
+10/−15 lines, 3 filesdep ~aesondep ~attoparsecdep ~vectorPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: aeson, attoparsec, vector
API changes (from Hackage documentation)
Files
- .travis.yml +1/−1
- lens-aeson.cabal +2/−9
- src/Data/Aeson/Lens.hs +7/−5
.travis.yml view
@@ -6,7 +6,7 @@ - travis/cabal-apt-install $mode install:- - cabal configure -flib-Werror $mode+ - cabal configure $mode - cabal build script:
lens-aeson.cabal view
@@ -1,6 +1,6 @@ name: lens-aeson category: Numeric-version: 1.0.0.3+version: 1.0.0.4 license: BSD3 cabal-version: >= 1.8 license-file: LICENSE@@ -37,10 +37,6 @@ default: True manual: True -flag lib-Werror- default: False- manual: True- library build-depends: base >= 4.5 && < 5,@@ -48,16 +44,13 @@ text >= 0.11.1.10 && < 1.3, vector >= 0.9 && < 0.11, unordered-containers >= 0.2.3 && < 0.3,- attoparsec >= 0.10 && < 0.13,+ attoparsec >= 0.10 && < 0.14, bytestring >= 0.9 && < 0.11, aeson >= 0.7.0.5 && < 0.9, scientific >= 0.3.2 && < 0.4 exposed-modules: Data.Aeson.Lens-- if flag(lib-Werror)- ghc-options: -Werror ghc-options: -Wall -fwarn-tabs -O2 hs-source-dirs: src
src/Data/Aeson/Lens.hs view
@@ -167,7 +167,8 @@ {-# INLINE _Primitive #-} #endif - -- "{\"a\": \"xyz\", \"b\": true}" ^? key "a" . _String+ -- |+ -- >>> "{\"a\": \"xyz\", \"b\": true}" ^? key "a" . _String -- Just "xyz" -- -- >>> "{\"a\": \"xyz\", \"b\": true}" ^? key "b" . _String@@ -179,10 +180,11 @@ _String = _Primitive.prism StringPrim (\v -> case v of StringPrim s -> Right s; _ -> Left v) {-# INLINE _String #-} + -- | -- >>> "{\"a\": \"xyz\", \"b\": true}" ^? key "b" . _Bool -- Just True --- -- "{\"a\": \"xyz\", \"b\": true}" ^? key "a" . _Bool+ -- >>> "{\"a\": \"xyz\", \"b\": true}" ^? key "a" . _Bool -- Nothing -- -- >>> _Bool # True@@ -194,6 +196,7 @@ _Bool = _Primitive.prism BoolPrim (\v -> case v of BoolPrim b -> Right b; _ -> Left v) {-# INLINE _Bool #-} + -- | -- >>> "{\"a\": \"xyz\", \"b\": null}" ^? key "b" . _Null -- Just () --@@ -322,10 +325,10 @@ -- | An indexed Traversal into Object properties ----- > "{\"a\": 4, \"b\": 7}" ^@.. members+-- >>> "{\"a\": 4, \"b\": 7}" ^@.. members -- [("a",Number 4.0),("b",Number 7.0)] ----- > "{\"a\": 4, \"b\": 7}" & members . _Number *~ 10+-- >>> "{\"a\": 4, \"b\": 7}" & members . _Number *~ 10 -- "{\"a\":40,\"b\":70}" members :: AsValue t => IndexedTraversal' Text t Value members = _Object . itraversed@@ -451,4 +454,3 @@ plate f (Array a) = Array <$> traverse f a plate _ xs = pure xs {-# INLINE plate #-}-