diff --git a/amazonka-sdb.cabal b/amazonka-sdb.cabal --- a/amazonka-sdb.cabal +++ b/amazonka-sdb.cabal @@ -1,5 +1,5 @@ name: amazonka-sdb -version: 0.2.1 +version: 0.2.2 synopsis: Amazon SimpleDB SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -61,5 +61,5 @@ other-modules: build-depends: - amazonka-core == 0.2.1.* + amazonka-core == 0.2.2.* , base >= 4.7 && < 5 diff --git a/gen/Network/AWS/SDB/BatchDeleteAttributes.hs b/gen/Network/AWS/SDB/BatchDeleteAttributes.hs --- a/gen/Network/AWS/SDB/BatchDeleteAttributes.hs +++ b/gen/Network/AWS/SDB/BatchDeleteAttributes.hs @@ -54,7 +54,7 @@ data BatchDeleteAttributes = BatchDeleteAttributes { _bdaDomainName :: Text , _bdaItems :: List "member" DeletableItem - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'BatchDeleteAttributes' constructor. -- @@ -80,7 +80,7 @@ bdaItems = lens _bdaItems (\s a -> s { _bdaItems = a }) . _List data BatchDeleteAttributesResponse = BatchDeleteAttributesResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'BatchDeleteAttributesResponse' constructor. batchDeleteAttributesResponse :: BatchDeleteAttributesResponse diff --git a/gen/Network/AWS/SDB/BatchPutAttributes.hs b/gen/Network/AWS/SDB/BatchPutAttributes.hs --- a/gen/Network/AWS/SDB/BatchPutAttributes.hs +++ b/gen/Network/AWS/SDB/BatchPutAttributes.hs @@ -83,7 +83,7 @@ data BatchPutAttributes = BatchPutAttributes { _bpaDomainName :: Text , _bpaItems :: List "member" ReplaceableItem - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'BatchPutAttributes' constructor. -- @@ -109,7 +109,7 @@ bpaItems = lens _bpaItems (\s a -> s { _bpaItems = a }) . _List data BatchPutAttributesResponse = BatchPutAttributesResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'BatchPutAttributesResponse' constructor. batchPutAttributesResponse :: BatchPutAttributesResponse diff --git a/gen/Network/AWS/SDB/CreateDomain.hs b/gen/Network/AWS/SDB/CreateDomain.hs --- a/gen/Network/AWS/SDB/CreateDomain.hs +++ b/gen/Network/AWS/SDB/CreateDomain.hs @@ -53,7 +53,7 @@ newtype CreateDomain = CreateDomain { _cdDomainName :: Text - } deriving (Eq, Ord, Show, Monoid, IsString) + } deriving (Eq, Ord, Read, Show, Monoid, IsString) -- | 'CreateDomain' constructor. -- @@ -74,7 +74,7 @@ cdDomainName = lens _cdDomainName (\s a -> s { _cdDomainName = a }) data CreateDomainResponse = CreateDomainResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'CreateDomainResponse' constructor. createDomainResponse :: CreateDomainResponse diff --git a/gen/Network/AWS/SDB/DeleteAttributes.hs b/gen/Network/AWS/SDB/DeleteAttributes.hs --- a/gen/Network/AWS/SDB/DeleteAttributes.hs +++ b/gen/Network/AWS/SDB/DeleteAttributes.hs @@ -62,7 +62,7 @@ , _daDomainName :: Text , _daExpected :: Maybe UpdateCondition , _daItemName :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DeleteAttributes' constructor. -- @@ -107,7 +107,7 @@ daItemName = lens _daItemName (\s a -> s { _daItemName = a }) data DeleteAttributesResponse = DeleteAttributesResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DeleteAttributesResponse' constructor. deleteAttributesResponse :: DeleteAttributesResponse diff --git a/gen/Network/AWS/SDB/DeleteDomain.hs b/gen/Network/AWS/SDB/DeleteDomain.hs --- a/gen/Network/AWS/SDB/DeleteDomain.hs +++ b/gen/Network/AWS/SDB/DeleteDomain.hs @@ -49,7 +49,7 @@ newtype DeleteDomain = DeleteDomain { _ddDomainName :: Text - } deriving (Eq, Ord, Show, Monoid, IsString) + } deriving (Eq, Ord, Read, Show, Monoid, IsString) -- | 'DeleteDomain' constructor. -- @@ -68,7 +68,7 @@ ddDomainName = lens _ddDomainName (\s a -> s { _ddDomainName = a }) data DeleteDomainResponse = DeleteDomainResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DeleteDomainResponse' constructor. deleteDomainResponse :: DeleteDomainResponse diff --git a/gen/Network/AWS/SDB/DomainMetadata.hs b/gen/Network/AWS/SDB/DomainMetadata.hs --- a/gen/Network/AWS/SDB/DomainMetadata.hs +++ b/gen/Network/AWS/SDB/DomainMetadata.hs @@ -57,7 +57,7 @@ newtype DomainMetadata = DomainMetadata { _dmDomainName :: Text - } deriving (Eq, Ord, Show, Monoid, IsString) + } deriving (Eq, Ord, Read, Show, Monoid, IsString) -- | 'DomainMetadata' constructor. -- @@ -83,7 +83,7 @@ , _dmrItemCount :: Maybe Int , _dmrItemNamesSizeBytes :: Maybe Integer , _dmrTimestamp :: Maybe Int - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DomainMetadataResponse' constructor. -- diff --git a/gen/Network/AWS/SDB/GetAttributes.hs b/gen/Network/AWS/SDB/GetAttributes.hs --- a/gen/Network/AWS/SDB/GetAttributes.hs +++ b/gen/Network/AWS/SDB/GetAttributes.hs @@ -61,7 +61,7 @@ , _gaConsistentRead :: Maybe Bool , _gaDomainName :: Text , _gaItemName :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'GetAttributes' constructor. -- @@ -106,7 +106,7 @@ newtype GetAttributesResponse = GetAttributesResponse { _garAttributes :: List "member" Attribute - } deriving (Eq, Show, Monoid, Semigroup) + } deriving (Eq, Read, Show, Monoid, Semigroup) -- | 'GetAttributesResponse' constructor. -- diff --git a/gen/Network/AWS/SDB/ListDomains.hs b/gen/Network/AWS/SDB/ListDomains.hs --- a/gen/Network/AWS/SDB/ListDomains.hs +++ b/gen/Network/AWS/SDB/ListDomains.hs @@ -53,7 +53,7 @@ data ListDomains = ListDomains { _ldMaxNumberOfDomains :: Maybe Int , _ldNextToken :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ListDomains' constructor. -- @@ -83,7 +83,7 @@ data ListDomainsResponse = ListDomainsResponse { _ldrDomainNames :: List "member" Text , _ldrNextToken :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ListDomainsResponse' constructor. -- diff --git a/gen/Network/AWS/SDB/PutAttributes.hs b/gen/Network/AWS/SDB/PutAttributes.hs --- a/gen/Network/AWS/SDB/PutAttributes.hs +++ b/gen/Network/AWS/SDB/PutAttributes.hs @@ -80,7 +80,7 @@ , _paDomainName :: Text , _paExpected :: Maybe UpdateCondition , _paItemName :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'PutAttributes' constructor. -- @@ -123,7 +123,7 @@ paItemName = lens _paItemName (\s a -> s { _paItemName = a }) data PutAttributesResponse = PutAttributesResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'PutAttributesResponse' constructor. putAttributesResponse :: PutAttributesResponse diff --git a/gen/Network/AWS/SDB/Select.hs b/gen/Network/AWS/SDB/Select.hs --- a/gen/Network/AWS/SDB/Select.hs +++ b/gen/Network/AWS/SDB/Select.hs @@ -65,7 +65,7 @@ { _sConsistentRead :: Maybe Bool , _sNextToken :: Maybe Text , _sSelectExpression :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'Select' constructor. -- @@ -104,7 +104,7 @@ data SelectResponse = SelectResponse { _srItems :: List "member" Item , _srNextToken :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'SelectResponse' constructor. -- diff --git a/gen/Network/AWS/SDB/Types.hs b/gen/Network/AWS/SDB/Types.hs --- a/gen/Network/AWS/SDB/Types.hs +++ b/gen/Network/AWS/SDB/Types.hs @@ -128,7 +128,7 @@ , _aAlternateValueEncoding :: Maybe Text , _aName :: Text , _aValue :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'Attribute' constructor. -- @@ -188,7 +188,7 @@ data DeletableItem = DeletableItem { _diAttributes :: List "member" Attribute , _diName :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DeletableItem' constructor. -- @@ -225,7 +225,7 @@ data ReplaceableItem = ReplaceableItem { _riAttributes :: List "member" ReplaceableAttribute , _riName :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ReplaceableItem' constructor. -- @@ -265,7 +265,7 @@ { _ucExists :: Maybe Bool , _ucName :: Maybe Text , _ucValue :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'UpdateCondition' constructor. -- @@ -317,7 +317,7 @@ { _raName :: Text , _raReplace :: Maybe Bool , _raValue :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ReplaceableAttribute' constructor. -- @@ -368,7 +368,7 @@ { _iAlternateNameEncoding :: Maybe Text , _iAttributes :: List "member" Attribute , _iName :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'Item' constructor. --