packages feed

amazonka-core 0.3.4 → 0.3.5

raw patch · 5 files changed

+14/−12 lines, 5 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Network.AWS.Data: data Base64
+ Network.AWS.Data: Base64 :: ByteString -> Base64
+ Network.AWS.Data: newtype Base64
+ Network.AWS.Data: unBase64 :: Base64 -> ByteString
- Network.AWS.Error: awsErrorCode :: AWSErrorCode a => a -> ErrorCode
+ Network.AWS.Error: awsErrorCode :: AWSErrorCode a => a -> Maybe ErrorCode
- Network.AWS.Error: jsonCode :: Lens' JSONError ErrorCode
+ Network.AWS.Error: jsonCode :: Lens' JSONError (Maybe ErrorCode)
- Network.AWS.Error: restCode :: Lens' RESTError ErrorCode
+ Network.AWS.Error: restCode :: Lens' RESTError (Maybe ErrorCode)
- Network.AWS.Prelude: awsErrorCode :: AWSErrorCode a => a -> ErrorCode
+ Network.AWS.Prelude: awsErrorCode :: AWSErrorCode a => a -> Maybe ErrorCode
- Network.AWS.Types: _Errors :: Prism' (ServiceError a_auYu) [ServiceError a_auYu]
+ Network.AWS.Types: _Errors :: Prism' (ServiceError a_avh9) [ServiceError a_avh9]
- Network.AWS.Types: _HttpError :: Prism' (ServiceError a_auYu) HttpException
+ Network.AWS.Types: _HttpError :: Prism' (ServiceError a_avh9) HttpException
- Network.AWS.Types: _SerializerError :: Prism' (ServiceError a_auYu) (Abbrev, String)
+ Network.AWS.Types: _SerializerError :: Prism' (ServiceError a_avh9) (Abbrev, String)
- Network.AWS.Types: _ServiceError :: Prism' (ServiceError a_auYu) (Abbrev, Status, a_auYu)
+ Network.AWS.Types: _ServiceError :: Prism' (ServiceError a_avh9) (Abbrev, Status, a_avh9)
- Network.AWS.Types: rqBody :: Lens (Request a_auXG) (Request a_aw4h) RqBody RqBody
+ Network.AWS.Types: rqBody :: Lens (Request a_avgl) (Request a_awmW) RqBody RqBody
- Network.AWS.Types: rqHeaders :: Lens (Request a_auXG) (Request a_aw4i) [Header] [Header]
+ Network.AWS.Types: rqHeaders :: Lens (Request a_avgl) (Request a_awmX) [Header] [Header]
- Network.AWS.Types: rqMethod :: Lens (Request a_auXG) (Request a_aw4j) StdMethod StdMethod
+ Network.AWS.Types: rqMethod :: Lens (Request a_avgl) (Request a_awmY) StdMethod StdMethod
- Network.AWS.Types: rqPath :: Lens (Request a_auXG) (Request a_aw4k) ByteString ByteString
+ Network.AWS.Types: rqPath :: Lens (Request a_avgl) (Request a_awmZ) ByteString ByteString
- Network.AWS.Types: rqQuery :: Lens (Request a_auXG) (Request a_aw4l) Query Query
+ Network.AWS.Types: rqQuery :: Lens (Request a_avgl) (Request a_awn0) Query Query

Files

amazonka-core.cabal view
@@ -1,5 +1,5 @@ name:                  amazonka-core-version:               0.3.4+version:               0.3.5 synopsis:              Core functionality and data types for Amazonka libraries. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense
src/Network/AWS/Data/Internal/Base64.hs view
@@ -12,7 +12,7 @@ -- Portability : non-portable (GHC extensions)  module Network.AWS.Data.Internal.Base64-    ( Base64+    ( Base64 (..)     ) where  import           Data.Aeson.Types@@ -28,6 +28,8 @@ import           Network.AWS.Data.Internal.XML  -- | Base64 encoded binary data.+--+-- Encoding/decoding is deferred to serialisation/deserialisation respectively. newtype Base64 = Base64 { unBase64 :: ByteString }     deriving (Eq, Read, Ord, Generic)
src/Network/AWS/Data/Internal/Query.hs view
@@ -101,9 +101,9 @@         | otherwise   = enc (Just k') x     enc k (Value (Just (urlEncode True -> v)))         | Just n <- k = [n <> vsep <> v]-        | otherwise   = [v]+        | otherwise   = [v <> vsep]     enc k _-        | Just n <- k = [n]+        | Just n <- k = [n <> vsep]         | otherwise   = []      intercalate []     = mempty
src/Network/AWS/Error.hs view
@@ -77,7 +77,7 @@     deriving (Eq, Ord, Show, FromXML, FromJSON, IsString, Generic)  class AWSErrorCode a where-    awsErrorCode :: a -> ErrorCode+    awsErrorCode :: a -> Maybe ErrorCode  data ErrorType     = Receiver@@ -96,7 +96,7 @@ data RESTError = RESTError     { _restRequestId :: Text     , _restType      :: Maybe ErrorType-    , _restCode      :: ErrorCode+    , _restCode      :: Maybe ErrorCode     , _restMessage   :: Text     } deriving (Eq, Show, Generic) @@ -111,7 +111,7 @@         f y = RESTError             <$> x .@  "RequestId"             <*> y .@? "Type"-            <*> y .@  "Code"+            <*> y .@? "Code"             <*> y .@  "Message"  restError :: FromXML (Er a)@@ -130,7 +130,7 @@  data JSONError = JSONError     { _jsonType    :: Maybe Text-    , _jsonCode    :: ErrorCode+    , _jsonCode    :: Maybe ErrorCode     , _jsonMessage :: Text     } deriving (Eq, Show, Generic) @@ -144,12 +144,12 @@       where         rest o = JSONError              <$> o .:? "Type"-             <*> o .:  "Code"+             <*> o .:? "Code"              <*> o .:  "Message"          post o = JSONError              <$> o .:? "__type"-             <*> o .:  "code"+             <*> o .:? "code"              <*> o .:  "message"  jsonError :: FromJSON (Er a)
src/Network/AWS/Waiters.hs view
@@ -88,8 +88,8 @@ matchError :: AWSErrorCode (Er (Sv a)) => ErrorCode -> Accept -> Acceptor a matchError c a _ = \case     Left (ServiceError _ _ e)-        | c == awsErrorCode e -> Just a-    _                         -> Nothing+        | Just c == awsErrorCode e -> Just a+    _                              -> Nothing  match :: (Rs a -> Bool) -> Accept -> Acceptor a match f a _ = \case