amazonka-iot-dataplane 1.4.5 → 1.5.0
raw patch · 13 files changed
+187/−171 lines, 13 filesdep ~amazonka-coredep ~amazonka-iot-dataplanedep ~amazonka-testPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka-core, amazonka-iot-dataplane, amazonka-test
API changes (from Hackage documentation)
Files
- README.md +1/−1
- amazonka-iot-dataplane.cabal +16/−11
- gen/Network/AWS/IoTDataPlane.hs +8/−8
- gen/Network/AWS/IoTDataPlane/DeleteThingShadow.hs +23/−24
- gen/Network/AWS/IoTDataPlane/GetThingShadow.hs +23/−24
- gen/Network/AWS/IoTDataPlane/Publish.hs +22/−22
- gen/Network/AWS/IoTDataPlane/Types.hs +50/−36
- gen/Network/AWS/IoTDataPlane/Types/Product.hs +5/−5
- gen/Network/AWS/IoTDataPlane/Types/Sum.hs +3/−3
- gen/Network/AWS/IoTDataPlane/UpdateThingShadow.hs +24/−25
- gen/Network/AWS/IoTDataPlane/Waiters.hs +6/−6
- test/Main.hs +2/−2
- test/Test/AWS/Gen/IoTDataPlane.hs +4/−4
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.4.5`+`1.5.0` ## Description
amazonka-iot-dataplane.cabal view
@@ -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 <brendan.g.hay@gmail.com>-copyright: Copyright (c) 2013-2016 Brendan Hay+maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>+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
gen/Network/AWS/IoTDataPlane.hs view
@@ -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 <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- 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
gen/Network/AWS/IoTDataPlane/DeleteThingShadow.hs view
@@ -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 <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- 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
gen/Network/AWS/IoTDataPlane/GetThingShadow.hs view
@@ -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 <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- 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
gen/Network/AWS/IoTDataPlane/Publish.hs view
@@ -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 <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- 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
gen/Network/AWS/IoTDataPlane/Types.hs view
@@ -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 <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- 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+
gen/Network/AWS/IoTDataPlane/Types/Product.hs view
@@ -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 <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- 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
gen/Network/AWS/IoTDataPlane/Types/Sum.hs view
@@ -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 <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.IoTDataPlane.Types.Sum where -import Network.AWS.Prelude+import Network.AWS.Prelude
gen/Network/AWS/IoTDataPlane/UpdateThingShadow.hs view
@@ -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 <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- 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
gen/Network/AWS/IoTDataPlane/Waiters.hs view
@@ -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 <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- 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
test/Main.hs view
@@ -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 <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --
test/Test/AWS/Gen/IoTDataPlane.hs view
@@ -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 <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- 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.