diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.4.5` +`1.5.0` ## Description diff --git a/amazonka-iot-dataplane.cabal b/amazonka-iot-dataplane.cabal --- a/amazonka-iot-dataplane.cabal +++ b/amazonka-iot-dataplane.cabal @@ -1,13 +1,13 @@ name: amazonka-iot-dataplane -version: 1.4.5 +version: 1.5.0 synopsis: Amazon IoT Data Plane SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues -license: OtherLicense +license: MPL-2.0 license-file: LICENSE author: Brendan Hay -maintainer: Brendan Hay -copyright: Copyright (c) 2013-2016 Brendan Hay +maintainer: Brendan Hay +copyright: Copyright (c) 2013-2017 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10 @@ -29,14 +29,19 @@ to get started. source-repository head - type: git - location: git://github.com/brendanhay/amazonka.git + type: git + location: git://github.com/brendanhay/amazonka.git + subdir: amazonka-iot-dataplane library default-language: Haskell2010 hs-source-dirs: src gen - ghc-options: -Wall + ghc-options: + -Wall + -fwarn-incomplete-uni-patterns + -fwarn-incomplete-record-updates + -funbox-strict-fields exposed-modules: Network.AWS.IoTDataPlane @@ -52,7 +57,7 @@ , Network.AWS.IoTDataPlane.Types.Sum build-depends: - amazonka-core == 1.4.5.* + amazonka-core == 1.5.0.* , base >= 4.7 && < 5 test-suite amazonka-iot-dataplane-test @@ -72,9 +77,9 @@ , Test.AWS.IoTDataPlane.Internal build-depends: - amazonka-core == 1.4.5.* - , amazonka-test == 1.4.5.* - , amazonka-iot-dataplane == 1.4.5.* + amazonka-core == 1.5.0.* + , amazonka-test == 1.5.0.* + , amazonka-iot-dataplane , base , bytestring , tasty diff --git a/gen/Network/AWS/IoTDataPlane.hs b/gen/Network/AWS/IoTDataPlane.hs --- a/gen/Network/AWS/IoTDataPlane.hs +++ b/gen/Network/AWS/IoTDataPlane.hs @@ -5,9 +5,9 @@ -- | -- Module : Network.AWS.IoTDataPlane --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -74,12 +74,12 @@ -- * Types ) where -import Network.AWS.IoTDataPlane.DeleteThingShadow -import Network.AWS.IoTDataPlane.GetThingShadow -import Network.AWS.IoTDataPlane.Publish -import Network.AWS.IoTDataPlane.Types -import Network.AWS.IoTDataPlane.UpdateThingShadow -import Network.AWS.IoTDataPlane.Waiters +import Network.AWS.IoTDataPlane.DeleteThingShadow +import Network.AWS.IoTDataPlane.GetThingShadow +import Network.AWS.IoTDataPlane.Publish +import Network.AWS.IoTDataPlane.Types +import Network.AWS.IoTDataPlane.UpdateThingShadow +import Network.AWS.IoTDataPlane.Waiters {- $errors Error matchers are designed for use with the functions provided by diff --git a/gen/Network/AWS/IoTDataPlane/DeleteThingShadow.hs b/gen/Network/AWS/IoTDataPlane/DeleteThingShadow.hs --- a/gen/Network/AWS/IoTDataPlane/DeleteThingShadow.hs +++ b/gen/Network/AWS/IoTDataPlane/DeleteThingShadow.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoTDataPlane.DeleteThingShadow --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -39,12 +39,12 @@ , dtsrsPayload ) where -import Network.AWS.IoTDataPlane.Types -import Network.AWS.IoTDataPlane.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.IoTDataPlane.Types +import Network.AWS.IoTDataPlane.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | The input for the DeleteThingShadow operation. -- @@ -52,9 +52,10 @@ -- -- /See:/ 'deleteThingShadow' smart constructor. newtype DeleteThingShadow = DeleteThingShadow' - { _dtsThingName :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dtsThingName :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteThingShadow' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -63,11 +64,9 @@ deleteThingShadow :: Text -- ^ 'dtsThingName' -> DeleteThingShadow -deleteThingShadow pThingName_ = - DeleteThingShadow' - { _dtsThingName = pThingName_ - } +deleteThingShadow pThingName_ = DeleteThingShadow' {_dtsThingName = pThingName_} + -- | The name of the thing. dtsThingName :: Lens' DeleteThingShadow Text dtsThingName = lens _dtsThingName (\ s a -> s{_dtsThingName = a}); @@ -81,9 +80,9 @@ DeleteThingShadowResponse' <$> (pure (fromEnum s)) <*> (pure x)) -instance Hashable DeleteThingShadow +instance Hashable DeleteThingShadow where -instance NFData DeleteThingShadow +instance NFData DeleteThingShadow where instance ToHeaders DeleteThingShadow where toHeaders = const mempty @@ -101,10 +100,11 @@ -- -- /See:/ 'deleteThingShadowResponse' smart constructor. data DeleteThingShadowResponse = DeleteThingShadowResponse' - { _dtsrsResponseStatus :: !Int - , _dtsrsPayload :: !(HashMap Text Value) - } deriving (Eq,Show,Data,Typeable,Generic) + { _dtsrsResponseStatus :: !Int + , _dtsrsPayload :: !(HashMap Text Value) + } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteThingShadowResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -117,11 +117,10 @@ -> HashMap Text Value -- ^ 'dtsrsPayload' -> DeleteThingShadowResponse deleteThingShadowResponse pResponseStatus_ pPayload_ = - DeleteThingShadowResponse' - { _dtsrsResponseStatus = pResponseStatus_ - , _dtsrsPayload = pPayload_ - } + DeleteThingShadowResponse' + {_dtsrsResponseStatus = pResponseStatus_, _dtsrsPayload = pPayload_} + -- | -- | The response status code. dtsrsResponseStatus :: Lens' DeleteThingShadowResponse Int dtsrsResponseStatus = lens _dtsrsResponseStatus (\ s a -> s{_dtsrsResponseStatus = a}); @@ -130,4 +129,4 @@ dtsrsPayload :: Lens' DeleteThingShadowResponse (HashMap Text Value) dtsrsPayload = lens _dtsrsPayload (\ s a -> s{_dtsrsPayload = a}); -instance NFData DeleteThingShadowResponse +instance NFData DeleteThingShadowResponse where diff --git a/gen/Network/AWS/IoTDataPlane/GetThingShadow.hs b/gen/Network/AWS/IoTDataPlane/GetThingShadow.hs --- a/gen/Network/AWS/IoTDataPlane/GetThingShadow.hs +++ b/gen/Network/AWS/IoTDataPlane/GetThingShadow.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoTDataPlane.GetThingShadow --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -39,12 +39,12 @@ , gtsrsResponseStatus ) where -import Network.AWS.IoTDataPlane.Types -import Network.AWS.IoTDataPlane.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.IoTDataPlane.Types +import Network.AWS.IoTDataPlane.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | The input for the GetThingShadow operation. -- @@ -52,9 +52,10 @@ -- -- /See:/ 'getThingShadow' smart constructor. newtype GetThingShadow = GetThingShadow' - { _gtsThingName :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _gtsThingName :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetThingShadow' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -63,11 +64,9 @@ getThingShadow :: Text -- ^ 'gtsThingName' -> GetThingShadow -getThingShadow pThingName_ = - GetThingShadow' - { _gtsThingName = pThingName_ - } +getThingShadow pThingName_ = GetThingShadow' {_gtsThingName = pThingName_} + -- | The name of the thing. gtsThingName :: Lens' GetThingShadow Text gtsThingName = lens _gtsThingName (\ s a -> s{_gtsThingName = a}); @@ -81,9 +80,9 @@ GetThingShadowResponse' <$> (pure (Just x)) <*> (pure (fromEnum s))) -instance Hashable GetThingShadow +instance Hashable GetThingShadow where -instance NFData GetThingShadow +instance NFData GetThingShadow where instance ToHeaders GetThingShadow where toHeaders = const mempty @@ -101,10 +100,11 @@ -- -- /See:/ 'getThingShadowResponse' smart constructor. data GetThingShadowResponse = GetThingShadowResponse' - { _gtsrsPayload :: !(Maybe (HashMap Text Value)) - , _gtsrsResponseStatus :: !Int - } deriving (Eq,Show,Data,Typeable,Generic) + { _gtsrsPayload :: !(Maybe (HashMap Text Value)) + , _gtsrsResponseStatus :: !Int + } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetThingShadowResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -116,11 +116,10 @@ :: Int -- ^ 'gtsrsResponseStatus' -> GetThingShadowResponse getThingShadowResponse pResponseStatus_ = - GetThingShadowResponse' - { _gtsrsPayload = Nothing - , _gtsrsResponseStatus = pResponseStatus_ - } + GetThingShadowResponse' + {_gtsrsPayload = Nothing, _gtsrsResponseStatus = pResponseStatus_} + -- | The state information, in JSON format. gtsrsPayload :: Lens' GetThingShadowResponse (Maybe (HashMap Text Value)) gtsrsPayload = lens _gtsrsPayload (\ s a -> s{_gtsrsPayload = a}); @@ -129,4 +128,4 @@ gtsrsResponseStatus :: Lens' GetThingShadowResponse Int gtsrsResponseStatus = lens _gtsrsResponseStatus (\ s a -> s{_gtsrsResponseStatus = a}); -instance NFData GetThingShadowResponse +instance NFData GetThingShadowResponse where diff --git a/gen/Network/AWS/IoTDataPlane/Publish.hs b/gen/Network/AWS/IoTDataPlane/Publish.hs --- a/gen/Network/AWS/IoTDataPlane/Publish.hs +++ b/gen/Network/AWS/IoTDataPlane/Publish.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoTDataPlane.Publish --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , PublishResponse ) where -import Network.AWS.IoTDataPlane.Types -import Network.AWS.IoTDataPlane.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.IoTDataPlane.Types +import Network.AWS.IoTDataPlane.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | The input for the Publish operation. -- @@ -51,11 +51,12 @@ -- -- /See:/ 'publish' smart constructor. data Publish = Publish' - { _pPayload :: !(Maybe (HashMap Text Value)) - , _pQos :: !(Maybe Nat) - , _pTopic :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + { _pPayload :: !(Maybe (HashMap Text Value)) + , _pQos :: !(Maybe Nat) + , _pTopic :: !Text + } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Publish' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -69,12 +70,9 @@ :: Text -- ^ 'pTopic' -> Publish publish pTopic_ = - Publish' - { _pPayload = Nothing - , _pQos = Nothing - , _pTopic = pTopic_ - } + Publish' {_pPayload = Nothing, _pQos = Nothing, _pTopic = pTopic_} + -- | The state information, in JSON format. pPayload :: Lens' Publish (Maybe (HashMap Text Value)) pPayload = lens _pPayload (\ s a -> s{_pPayload = a}); @@ -92,9 +90,9 @@ request = postBody ioTDataPlane response = receiveNull PublishResponse' -instance Hashable Publish +instance Hashable Publish where -instance NFData Publish +instance NFData Publish where instance ToBody Publish where toBody = toBody . _pPayload @@ -111,13 +109,15 @@ -- | /See:/ 'publishResponse' smart constructor. data PublishResponse = - PublishResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + PublishResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PublishResponse' with the minimum fields required to make a request. -- publishResponse :: PublishResponse publishResponse = PublishResponse' -instance NFData PublishResponse + +instance NFData PublishResponse where diff --git a/gen/Network/AWS/IoTDataPlane/Types.hs b/gen/Network/AWS/IoTDataPlane/Types.hs --- a/gen/Network/AWS/IoTDataPlane/Types.hs +++ b/gen/Network/AWS/IoTDataPlane/Types.hs @@ -4,9 +4,9 @@ -- | -- Module : Network.AWS.IoTDataPlane.Types --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -28,38 +28,40 @@ , _UnsupportedDocumentEncodingException ) where -import Network.AWS.IoTDataPlane.Types.Product -import Network.AWS.IoTDataPlane.Types.Sum -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Sign.V4 +import Network.AWS.IoTDataPlane.Types.Product +import Network.AWS.IoTDataPlane.Types.Sum +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Sign.V4 -- | API version @2015-05-28@ of the Amazon IoT Data Plane SDK configuration. ioTDataPlane :: Service ioTDataPlane = - Service - { _svcAbbrev = "IoTDataPlane" - , _svcSigner = v4 - , _svcPrefix = "data.iot" - , _svcVersion = "2015-05-28" - , _svcEndpoint = defaultEndpoint ioTDataPlane - , _svcTimeout = Just 70 - , _svcCheck = statusSuccess - , _svcError = parseJSONError "IoTDataPlane" - , _svcRetry = retry - } + Service + { _svcAbbrev = "IoTDataPlane" + , _svcSigner = v4 + , _svcPrefix = "data.iot" + , _svcVersion = "2015-05-28" + , _svcEndpoint = defaultEndpoint ioTDataPlane + , _svcTimeout = Just 70 + , _svcCheck = statusSuccess + , _svcError = parseJSONError "IoTDataPlane" + , _svcRetry = retry + } where retry = - Exponential - { _retryBase = 5.0e-2 - , _retryGrowth = 2 - , _retryAttempts = 5 - , _retryCheck = check - } + Exponential + { _retryBase = 5.0e-2 + , _retryGrowth = 2 + , _retryAttempts = 5 + , _retryCheck = check + } check e + | has (hasCode "ThrottledException" . hasStatus 400) e = + Just "throttled_exception" | has (hasStatus 429) e = Just "too_many_requests" | has (hasCode "ThrottlingException" . hasStatus 400) e = - Just "throttling_exception" + Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout" | has (hasStatus 502) e = Just "bad_gateway" @@ -68,73 +70,85 @@ | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing + -- | The request is not valid. -- -- _InvalidRequestException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidRequestException = - _ServiceError . hasStatus 400 . hasCode "InvalidRequestException" + _MatchServiceError ioTDataPlane "InvalidRequestException" . hasStatus 400 + -- | The specified version does not match the version of the document. -- -- _ConflictException :: AsError a => Getting (First ServiceError) a ServiceError _ConflictException = - _ServiceError . hasStatus 409 . hasCode "ConflictException" + _MatchServiceError ioTDataPlane "ConflictException" . hasStatus 409 + -- | The payload exceeds the maximum size allowed. -- -- _RequestEntityTooLargeException :: AsError a => Getting (First ServiceError) a ServiceError _RequestEntityTooLargeException = - _ServiceError . hasStatus 413 . hasCode "RequestEntityTooLargeException" + _MatchServiceError ioTDataPlane "RequestEntityTooLargeException" . + hasStatus 413 + -- | The rate exceeds the limit. -- -- _ThrottlingException :: AsError a => Getting (First ServiceError) a ServiceError _ThrottlingException = - _ServiceError . hasStatus 429 . hasCode "ThrottlingException" + _MatchServiceError ioTDataPlane "ThrottlingException" . hasStatus 429 + -- | The specified combination of HTTP verb and URI is not supported. -- -- _MethodNotAllowedException :: AsError a => Getting (First ServiceError) a ServiceError _MethodNotAllowedException = - _ServiceError . hasStatus 405 . hasCode "MethodNotAllowedException" + _MatchServiceError ioTDataPlane "MethodNotAllowedException" . hasStatus 405 + -- | An unexpected error has occurred. -- -- _InternalFailureException :: AsError a => Getting (First ServiceError) a ServiceError _InternalFailureException = - _ServiceError . hasStatus 500 . hasCode "InternalFailureException" + _MatchServiceError ioTDataPlane "InternalFailureException" . hasStatus 500 + -- | The service is temporarily unavailable. -- -- _ServiceUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError _ServiceUnavailableException = - _ServiceError . hasStatus 503 . hasCode "ServiceUnavailableException" + _MatchServiceError ioTDataPlane "ServiceUnavailableException" . hasStatus 503 + -- | You are not authorized to perform this operation. -- -- _UnauthorizedException :: AsError a => Getting (First ServiceError) a ServiceError _UnauthorizedException = - _ServiceError . hasStatus 401 . hasCode "UnauthorizedException" + _MatchServiceError ioTDataPlane "UnauthorizedException" . hasStatus 401 + -- | The specified resource does not exist. -- -- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException = - _ServiceError . hasStatus 404 . hasCode "ResourceNotFoundException" + _MatchServiceError ioTDataPlane "ResourceNotFoundException" . hasStatus 404 + -- | The document encoding is not supported. -- -- _UnsupportedDocumentEncodingException :: AsError a => Getting (First ServiceError) a ServiceError _UnsupportedDocumentEncodingException = - _ServiceError . - hasStatus 415 . hasCode "UnsupportedDocumentEncodingException" + _MatchServiceError ioTDataPlane "UnsupportedDocumentEncodingException" . + hasStatus 415 + diff --git a/gen/Network/AWS/IoTDataPlane/Types/Product.hs b/gen/Network/AWS/IoTDataPlane/Types/Product.hs --- a/gen/Network/AWS/IoTDataPlane/Types/Product.hs +++ b/gen/Network/AWS/IoTDataPlane/Types/Product.hs @@ -9,14 +9,14 @@ -- | -- Module : Network.AWS.IoTDataPlane.Types.Product --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.IoTDataPlane.Types.Product where -import Network.AWS.IoTDataPlane.Types.Sum -import Network.AWS.Lens -import Network.AWS.Prelude +import Network.AWS.IoTDataPlane.Types.Sum +import Network.AWS.Lens +import Network.AWS.Prelude diff --git a/gen/Network/AWS/IoTDataPlane/Types/Sum.hs b/gen/Network/AWS/IoTDataPlane/Types/Sum.hs --- a/gen/Network/AWS/IoTDataPlane/Types/Sum.hs +++ b/gen/Network/AWS/IoTDataPlane/Types/Sum.hs @@ -9,12 +9,12 @@ -- | -- Module : Network.AWS.IoTDataPlane.Types.Sum --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.IoTDataPlane.Types.Sum where -import Network.AWS.Prelude +import Network.AWS.Prelude diff --git a/gen/Network/AWS/IoTDataPlane/UpdateThingShadow.hs b/gen/Network/AWS/IoTDataPlane/UpdateThingShadow.hs --- a/gen/Network/AWS/IoTDataPlane/UpdateThingShadow.hs +++ b/gen/Network/AWS/IoTDataPlane/UpdateThingShadow.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.IoTDataPlane.UpdateThingShadow --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -40,12 +40,12 @@ , utsrsResponseStatus ) where -import Network.AWS.IoTDataPlane.Types -import Network.AWS.IoTDataPlane.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.IoTDataPlane.Types +import Network.AWS.IoTDataPlane.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | The input for the UpdateThingShadow operation. -- @@ -53,10 +53,11 @@ -- -- /See:/ 'updateThingShadow' smart constructor. data UpdateThingShadow = UpdateThingShadow' - { _utsThingName :: !Text - , _utsPayload :: !(HashMap Text Value) - } deriving (Eq,Show,Data,Typeable,Generic) + { _utsThingName :: !Text + , _utsPayload :: !(HashMap Text Value) + } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateThingShadow' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -69,11 +70,9 @@ -> HashMap Text Value -- ^ 'utsPayload' -> UpdateThingShadow updateThingShadow pThingName_ pPayload_ = - UpdateThingShadow' - { _utsThingName = pThingName_ - , _utsPayload = pPayload_ - } + UpdateThingShadow' {_utsThingName = pThingName_, _utsPayload = pPayload_} + -- | The name of the thing. utsThingName :: Lens' UpdateThingShadow Text utsThingName = lens _utsThingName (\ s a -> s{_utsThingName = a}); @@ -91,9 +90,9 @@ UpdateThingShadowResponse' <$> (pure (Just x)) <*> (pure (fromEnum s))) -instance Hashable UpdateThingShadow +instance Hashable UpdateThingShadow where -instance NFData UpdateThingShadow +instance NFData UpdateThingShadow where instance ToBody UpdateThingShadow where toBody = toBody . _utsPayload @@ -114,10 +113,11 @@ -- -- /See:/ 'updateThingShadowResponse' smart constructor. data UpdateThingShadowResponse = UpdateThingShadowResponse' - { _utsrsPayload :: !(Maybe (HashMap Text Value)) - , _utsrsResponseStatus :: !Int - } deriving (Eq,Show,Data,Typeable,Generic) + { _utsrsPayload :: !(Maybe (HashMap Text Value)) + , _utsrsResponseStatus :: !Int + } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateThingShadowResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -129,11 +129,10 @@ :: Int -- ^ 'utsrsResponseStatus' -> UpdateThingShadowResponse updateThingShadowResponse pResponseStatus_ = - UpdateThingShadowResponse' - { _utsrsPayload = Nothing - , _utsrsResponseStatus = pResponseStatus_ - } + UpdateThingShadowResponse' + {_utsrsPayload = Nothing, _utsrsResponseStatus = pResponseStatus_} + -- | The state information, in JSON format. utsrsPayload :: Lens' UpdateThingShadowResponse (Maybe (HashMap Text Value)) utsrsPayload = lens _utsrsPayload (\ s a -> s{_utsrsPayload = a}); @@ -142,4 +141,4 @@ utsrsResponseStatus :: Lens' UpdateThingShadowResponse Int utsrsResponseStatus = lens _utsrsResponseStatus (\ s a -> s{_utsrsResponseStatus = a}); -instance NFData UpdateThingShadowResponse +instance NFData UpdateThingShadowResponse where diff --git a/gen/Network/AWS/IoTDataPlane/Waiters.hs b/gen/Network/AWS/IoTDataPlane/Waiters.hs --- a/gen/Network/AWS/IoTDataPlane/Waiters.hs +++ b/gen/Network/AWS/IoTDataPlane/Waiters.hs @@ -7,15 +7,15 @@ -- | -- Module : Network.AWS.IoTDataPlane.Waiters --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.IoTDataPlane.Waiters where -import Network.AWS.IoTDataPlane.Types -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Waiter +import Network.AWS.IoTDataPlane.Types +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Waiter diff --git a/test/Main.hs b/test/Main.hs --- a/test/Main.hs +++ b/test/Main.hs @@ -2,9 +2,9 @@ -- | -- Module : Main --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- diff --git a/test/Test/AWS/Gen/IoTDataPlane.hs b/test/Test/AWS/Gen/IoTDataPlane.hs --- a/test/Test/AWS/Gen/IoTDataPlane.hs +++ b/test/Test/AWS/Gen/IoTDataPlane.hs @@ -5,20 +5,20 @@ -- | -- Module : Test.AWS.Gen.IoTDataPlane --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.IoTDataPlane where import Data.Proxy +import Network.AWS.IoTDataPlane import Test.AWS.Fixture +import Test.AWS.IoTDataPlane.Internal import Test.AWS.Prelude import Test.Tasty -import Network.AWS.IoTDataPlane -import Test.AWS.IoTDataPlane.Internal -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.