genvalidity-hspec-aeson 0.1.0.2 → 0.2.0.0

raw patch · 2 files changed

+29/−29 lines, 2 filesdep ~deepseqdep ~doctestdep ~genvalidityPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: deepseq, doctest, genvalidity, genvalidity-hspec

API changes (from Hackage documentation)

Files

• genvalidity-hspec-aeson.cabal +7/−7
• src/Test/Validity/Aeson.hs +22/−22

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: ad1b7fb65d8bc1185cd740fbee4f451978e4bb9de895ff3a38614e42a8c92275+-- hash: ab14d50e1e0b5bbd45a89d1b08cdc7577929e9c40895cf74dc3e1f89379bcd3a  name:           genvalidity-hspec-aeson-version:        0.1.0.2+version:        0.2.0.0 synopsis:       Standard spec's for aeson-related instances description:    Standard spec's for aeson-related Instances category:       Testing@@ -13,7 +13,7 @@ bug-reports:    https://github.com/NorfairKing/validity/issues author:         Tom Sydney Kerckhove maintainer:     syd.kerckhove@gmail.com-copyright:      Copyright: (c) 2016 Tom Sydney Kerckhove+copyright:      Copyright: (c) 2016-2018 Tom Sydney Kerckhove license:        MIT license-file:   LICENSE build-type:     Simple@@ -32,9 +32,9 @@     , aeson     , base >=4.9 && <=5     , bytestring-    , deepseq >=1.4 && <1.5-    , genvalidity >=0.4 && <0.5-    , genvalidity-hspec >=0.5 && <0.6+    , deepseq+    , genvalidity >=0.5 && <0.6+    , genvalidity-hspec >=0.6 && <0.7     , hspec   exposed-modules:       Test.Validity.Aeson@@ -50,7 +50,7 @@   ghc-options: -threaded   build-depends:       base-    , doctest >=0.11 && <0.14+    , doctest     , genvalidity-hspec-aeson     , hspec   other-modules:

@@ -119,25 +119,25 @@     forAllShrink gen s $ \(a :: a) ->         let encoded = JSON.encode a             errOrDecoded = JSON.eitherDecode encoded-        in case errOrDecoded of-               Left err ->-                   expectationFailure $-                   unlines-                       [ "Decoding failed with error"-                       , err-                       , "instead of decoding to"-                       , show a-                       , "'encode' encoded it to the json"-                       , show encoded-                       ]-               Right decoded ->-                   unless (decoded == a) $-                   expectationFailure $-                   unlines-                       [ "Decoding succeeded, but the decoded value"-                       , show decoded-                       , "differs from expected decoded value"-                       , show a-                       , "'encode' encoded it to the json"-                       , show encoded-                       ]+         in case errOrDecoded of+                Left err ->+                    expectationFailure $+                    unlines+                        [ "Decoding failed with error"+                        , err+                        , "instead of decoding to"+                        , show a+                        , "'encode' encoded it to the json"+                        , show encoded+                        ]+                Right decoded ->+                    unless (decoded == a) $+                    expectationFailure $+                    unlines+                        [ "Decoding succeeded, but the decoded value"+                        , show decoded+                        , "differs from expected decoded value"+                        , show a+                        , "'encode' encoded it to the json"+                        , show encoded+                        ]