amazonka-core 0.1.1 → 0.1.2
raw patch · 2 files changed
+10/−5 lines, 2 filesdep +scientificdep ~aesonPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependencies added: scientific
Dependency ranges changed: aeson
API changes (from Hackage documentation)
- Network.AWS.Types: _Errors :: Prism' (ServiceError a_aCHc) [ServiceError a_aCHc]
+ Network.AWS.Types: _Errors :: Prism' (ServiceError a_aCM9) [ServiceError a_aCM9]
- Network.AWS.Types: _HttpError :: Prism' (ServiceError a_aCHc) HttpException
+ Network.AWS.Types: _HttpError :: Prism' (ServiceError a_aCM9) HttpException
- Network.AWS.Types: _SerializerError :: Prism' (ServiceError a_aCHc) (Abbrev, String)
+ Network.AWS.Types: _SerializerError :: Prism' (ServiceError a_aCM9) (Abbrev, String)
- Network.AWS.Types: _ServiceError :: Prism' (ServiceError a_aCHc) (Abbrev, Status, a_aCHc)
+ Network.AWS.Types: _ServiceError :: Prism' (ServiceError a_aCM9) (Abbrev, Status, a_aCM9)
- Network.AWS.Types: rqBody :: Lens (Request a_aCGU) (Request a_aDR5) RqBody RqBody
+ Network.AWS.Types: rqBody :: Lens (Request a_aCLR) (Request a_aDW2) RqBody RqBody
- Network.AWS.Types: rqHeaders :: Lens (Request a_aCGU) (Request a_aDR6) [Header] [Header]
+ Network.AWS.Types: rqHeaders :: Lens (Request a_aCLR) (Request a_aDW3) [Header] [Header]
- Network.AWS.Types: rqMethod :: Lens (Request a_aCGU) (Request a_aDR7) StdMethod StdMethod
+ Network.AWS.Types: rqMethod :: Lens (Request a_aCLR) (Request a_aDW4) StdMethod StdMethod
- Network.AWS.Types: rqPath :: Lens (Request a_aCGU) (Request a_aDR8) ByteString ByteString
+ Network.AWS.Types: rqPath :: Lens (Request a_aCLR) (Request a_aDW5) ByteString ByteString
- Network.AWS.Types: rqQuery :: Lens (Request a_aCGU) (Request a_aDR9) Query Query
+ Network.AWS.Types: rqQuery :: Lens (Request a_aCLR) (Request a_aDW6) Query Query
Files
amazonka-core.cabal view
@@ -1,5 +1,5 @@ name: amazonka-core-version: 0.1.1+version: 0.1.2 synopsis: Core functionality and data types for Amazonka libraries. homepage: https://github.com/brendanhay/amazonka license: OtherLicense@@ -91,6 +91,7 @@ , mmorph >= 1 && < 2 , mtl >= 2.2.1 && < 2.3 , resourcet == 1.1.*+ , scientific == 0.3.* , semigroups >= 0.12 , tagged >= 0.7 , text >= 1.1@@ -113,6 +114,7 @@ build-depends: amazonka-core+ , aeson , base , tasty , tasty-hunit
src/Network/AWS/Data/Internal/Numeric.hs view
@@ -17,6 +17,7 @@ import Control.Lens.TH import Control.Monad import Data.Aeson.Types+import Data.Scientific import Network.AWS.Data.Internal.ByteString import Network.AWS.Data.Internal.Query import Network.AWS.Data.Internal.Text@@ -43,11 +44,13 @@ instance FromJSON Nat where parseJSON = parseJSON >=> \n ->- if n < 0- then fail $ "Cannot convert negative number to Natural: " ++ show n- else pure $ Nat (fromInteger n)+ case floatingOrInteger n of+ Left _ -> fail $ "Cannot convert float to Natural: " ++ show n+ Right i+ | n < 0 -> fail $ "Cannot convert negative number to Natural: " ++ show n+ | otherwise -> pure $ Nat (fromInteger i) instance ToJSON Nat where- toJSON = String . toText . unNat+ toJSON = Number . flip scientific 0 . toInteger . unNat makePrisms ''Nat