amazonka-kinesis-video 1.6.1 → 2.0

raw patch · 129 files changed

+12060/−2586 lines, 129 filesdep +case-insensitivedep ~amazonka-coredep ~amazonka-testdep ~basesetup-changedPVP ok

version bump matches the API change (PVP)

Dependencies added: case-insensitive

Dependency ranges changed: amazonka-core, amazonka-test, base

API changes (from Hackage documentation)

Files

• README.md +3/−4
• Setup.hs +0/−2
• amazonka-kinesis-video.cabal +136/−84
• fixture/CreateSignalingChannel.yaml +10/−0
• fixture/CreateSignalingChannelResponse.proto +0/−0
• fixture/DeleteSignalingChannel.yaml +10/−0
• fixture/DeleteSignalingChannelResponse.proto +0/−0
• fixture/DescribeEdgeConfiguration.yaml +10/−0
• fixture/DescribeEdgeConfigurationResponse.proto +0/−0
• fixture/DescribeImageGenerationConfiguration.yaml +10/−0
• fixture/DescribeImageGenerationConfigurationResponse.proto +0/−0
• fixture/DescribeMappedResourceConfiguration.yaml +10/−0
• fixture/DescribeMappedResourceConfigurationResponse.proto +0/−0
• fixture/DescribeMediaStorageConfiguration.yaml +10/−0
• fixture/DescribeMediaStorageConfigurationResponse.proto +0/−0
• fixture/DescribeNotificationConfiguration.yaml +10/−0
• fixture/DescribeNotificationConfigurationResponse.proto +0/−0
• fixture/DescribeSignalingChannel.yaml +10/−0
• fixture/DescribeSignalingChannelResponse.proto +0/−0
• fixture/GetSignalingChannelEndpoint.yaml +10/−0
• fixture/GetSignalingChannelEndpointResponse.proto +0/−0
• fixture/ListSignalingChannels.yaml +10/−0
• fixture/ListSignalingChannelsResponse.proto +0/−0
• fixture/ListTagsForResource.yaml +10/−0
• fixture/ListTagsForResourceResponse.proto +0/−0
• fixture/StartEdgeConfigurationUpdate.yaml +10/−0
• fixture/StartEdgeConfigurationUpdateResponse.proto +0/−0
• fixture/TagResource.yaml +10/−0
• fixture/TagResourceResponse.proto +0/−0
• fixture/UntagResource.yaml +10/−0
• fixture/UntagResourceResponse.proto +0/−0
• fixture/UpdateImageGenerationConfiguration.yaml +10/−0
• fixture/UpdateImageGenerationConfigurationResponse.proto +0/−0
• fixture/UpdateMediaStorageConfiguration.yaml +10/−0
• fixture/UpdateMediaStorageConfigurationResponse.proto +0/−0
• fixture/UpdateNotificationConfiguration.yaml +10/−0
• fixture/UpdateNotificationConfigurationResponse.proto +0/−0
• fixture/UpdateSignalingChannel.yaml +10/−0
• fixture/UpdateSignalingChannelResponse.proto +0/−0
• gen/Amazonka/KinesisVideo.hs +429/−0
• gen/Amazonka/KinesisVideo/CreateSignalingChannel.hs +222/−0
• gen/Amazonka/KinesisVideo/CreateStream.hs +344/−0
• gen/Amazonka/KinesisVideo/DeleteSignalingChannel.hs +178/−0
• gen/Amazonka/KinesisVideo/DeleteStream.hs +188/−0
• gen/Amazonka/KinesisVideo/DescribeEdgeConfiguration.hs +262/−0
• gen/Amazonka/KinesisVideo/DescribeImageGenerationConfiguration.hs +221/−0
• gen/Amazonka/KinesisVideo/DescribeMappedResourceConfiguration.hs +283/−0
• gen/Amazonka/KinesisVideo/DescribeMediaStorageConfiguration.hs +205/−0
• gen/Amazonka/KinesisVideo/DescribeNotificationConfiguration.hs +219/−0
• gen/Amazonka/KinesisVideo/DescribeSignalingChannel.hs +181/−0
• gen/Amazonka/KinesisVideo/DescribeStream.hs +173/−0
• gen/Amazonka/KinesisVideo/GetDataEndpoint.hs +208/−0
• gen/Amazonka/KinesisVideo/GetSignalingChannelEndpoint.hs +203/−0
• gen/Amazonka/KinesisVideo/Lens.hs +368/−0
• gen/Amazonka/KinesisVideo/ListSignalingChannels.hs +246/−0
• gen/Amazonka/KinesisVideo/ListStreams.hs +245/−0
• gen/Amazonka/KinesisVideo/ListTagsForResource.hs +204/−0
• gen/Amazonka/KinesisVideo/ListTagsForStream.hs +215/−0
• gen/Amazonka/KinesisVideo/StartEdgeConfigurationUpdate.hs +302/−0
• gen/Amazonka/KinesisVideo/TagResource.hs +170/−0
• gen/Amazonka/KinesisVideo/TagStream.hs +186/−0
• gen/Amazonka/KinesisVideo/Types.hs +476/−0
• gen/Amazonka/KinesisVideo/Types/APIName.hs +98/−0
• gen/Amazonka/KinesisVideo/Types/ChannelInfo.hs +151/−0
• gen/Amazonka/KinesisVideo/Types/ChannelNameCondition.hs +96/−0
• gen/Amazonka/KinesisVideo/Types/ChannelProtocol.hs +76/−0
• gen/Amazonka/KinesisVideo/Types/ChannelRole.hs +71/−0
• gen/Amazonka/KinesisVideo/Types/ChannelType.hs +71/−0
• gen/Amazonka/KinesisVideo/Types/ComparisonOperator.hs +66/−0
• gen/Amazonka/KinesisVideo/Types/ConfigurationStatus.hs +71/−0
• gen/Amazonka/KinesisVideo/Types/DeletionConfig.hs +148/−0
• gen/Amazonka/KinesisVideo/Types/EdgeConfig.hs +149/−0
• gen/Amazonka/KinesisVideo/Types/Format.hs +68/−0
• gen/Amazonka/KinesisVideo/Types/FormatConfigKey.hs +66/−0
• gen/Amazonka/KinesisVideo/Types/ImageGenerationConfiguration.hs +280/−0
• gen/Amazonka/KinesisVideo/Types/ImageGenerationDestinationConfig.hs +118/−0
• gen/Amazonka/KinesisVideo/Types/ImageSelectorType.hs +71/−0
• gen/Amazonka/KinesisVideo/Types/LocalSizeConfig.hs +106/−0
• gen/Amazonka/KinesisVideo/Types/MappedResourceConfigurationListItem.hs +99/−0
• gen/Amazonka/KinesisVideo/Types/MediaSourceConfig.hs +116/−0
• gen/Amazonka/KinesisVideo/Types/MediaStorageConfiguration.hs +98/−0
• gen/Amazonka/KinesisVideo/Types/MediaStorageConfigurationStatus.hs +71/−0
• gen/Amazonka/KinesisVideo/Types/MediaUriType.hs +71/−0
• gen/Amazonka/KinesisVideo/Types/NotificationConfiguration.hs +107/−0
• gen/Amazonka/KinesisVideo/Types/NotificationDestinationConfig.hs +85/−0
• gen/Amazonka/KinesisVideo/Types/RecorderConfig.hs +119/−0
• gen/Amazonka/KinesisVideo/Types/ResourceEndpointListItem.hs +93/−0
• gen/Amazonka/KinesisVideo/Types/ScheduleConfig.hs +135/−0
• gen/Amazonka/KinesisVideo/Types/SingleMasterChannelEndpointConfiguration.hs +125/−0
• gen/Amazonka/KinesisVideo/Types/SingleMasterConfiguration.hs +85/−0
• gen/Amazonka/KinesisVideo/Types/StrategyOnFullSize.hs +71/−0
• gen/Amazonka/KinesisVideo/Types/StreamInfo.hs +172/−0
• gen/Amazonka/KinesisVideo/Types/StreamNameCondition.hs +94/−0
• gen/Amazonka/KinesisVideo/Types/StreamStatus.hs +81/−0
• gen/Amazonka/KinesisVideo/Types/SyncStatus.hs +91/−0
• gen/Amazonka/KinesisVideo/Types/Tag.hs +90/−0
• gen/Amazonka/KinesisVideo/Types/UpdateDataRetentionOperation.hs +71/−0
• gen/Amazonka/KinesisVideo/Types/UploaderConfig.hs +96/−0
• gen/Amazonka/KinesisVideo/UntagResource.hs +166/−0
• gen/Amazonka/KinesisVideo/UntagStream.hs +176/−0
• gen/Amazonka/KinesisVideo/UpdateDataRetention.hs +251/−0
• gen/Amazonka/KinesisVideo/UpdateImageGenerationConfiguration.hs +221/−0
• gen/Amazonka/KinesisVideo/UpdateMediaStorageConfiguration.hs +200/−0
• gen/Amazonka/KinesisVideo/UpdateNotificationConfiguration.hs +212/−0
• gen/Amazonka/KinesisVideo/UpdateSignalingChannel.hs +197/−0
• gen/Amazonka/KinesisVideo/UpdateStream.hs +253/−0
• gen/Amazonka/KinesisVideo/Waiters.hs +24/−0
• gen/Network/AWS/KinesisVideo.hs +0/−169
• gen/Network/AWS/KinesisVideo/CreateStream.hs +0/−178
• gen/Network/AWS/KinesisVideo/DeleteStream.hs +0/−134
• gen/Network/AWS/KinesisVideo/DescribeStream.hs +0/−134
• gen/Network/AWS/KinesisVideo/GetDataEndpoint.hs +0/−148
• gen/Network/AWS/KinesisVideo/ListStreams.hs +0/−162
• gen/Network/AWS/KinesisVideo/ListTagsForStream.hs +0/−162
• gen/Network/AWS/KinesisVideo/TagStream.hs +0/−140
• gen/Network/AWS/KinesisVideo/Types.hs +0/−198
• gen/Network/AWS/KinesisVideo/Types/Product.hs +0/−176
• gen/Network/AWS/KinesisVideo/Types/Sum.hs +0/−137
• gen/Network/AWS/KinesisVideo/UntagStream.hs +0/−141
• gen/Network/AWS/KinesisVideo/UpdateDataRetention.hs +0/−174
• gen/Network/AWS/KinesisVideo/UpdateStream.hs +0/−165
• gen/Network/AWS/KinesisVideo/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/KinesisVideo.hs +0/−219
• test/Test/AWS/KinesisVideo.hs +0/−20
• test/Test/AWS/KinesisVideo/Internal.hs +0/−9
• test/Test/Amazonka/Gen/KinesisVideo.hs +598/−0
• test/Test/Amazonka/KinesisVideo.hs +20/−0
• test/Test/Amazonka/KinesisVideo/Internal.hs +8/−0

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2017-09-30@ of the AWS service descriptions, licensed under Apache 2.0.  ## Description @@ -26,7 +25,7 @@ The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core). -See [Network.AWS.KinesisVideo](http://hackage.haskell.org/package/amazonka-kinesis-video/docs/Network-AWS-KinesisVideo.html)+See [Amazonka.KinesisVideo](http://hackage.haskell.org/package/amazonka-kinesis-video/docs/Amazonka-KinesisVideo.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

@@ -1,2 +0,0 @@-import           Distribution.Simple-main = defaultMain

@@ -1,95 +1,147 @@-name:                  amazonka-kinesis-video-version:               1.6.1-synopsis:              Amazon Kinesis Video Streams SDK.-homepage:              https://github.com/brendanhay/amazonka-bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               MPL-2.0-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2018 Brendan Hay-category:              Network, AWS, Cloud, Distributed Computing-build-type:            Simple-cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep+cabal-version:      2.2+name:               amazonka-kinesis-video+version:            2.0+synopsis:           Amazon Kinesis Video Streams SDK.+homepage:           https://github.com/brendanhay/amazonka+bug-reports:        https://github.com/brendanhay/amazonka/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++copyright:          Copyright (c) 2013-2023 Brendan Hay+category:           AWS+build-type:         Simple+extra-source-files:+  fixture/*.proto+  fixture/*.yaml+  README.md+  src/.gitkeep+ description:-    The types from this library are intended to be used with-    <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information, sending requests,-    and receiving responses.-    .-    Lenses are used for constructing and manipulating types,-    due to the depth of nesting of AWS types and transparency regarding-    de/serialisation into more palatable Haskell values.-    The provided lenses should be compatible with any of the major lens libraries-    such as <http://hackage.haskell.org/package/lens lens> or-    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.-    .-    See "Network.AWS.KinesisVideo" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2017-09-30@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  The types from this library are intended to be used with <http://hackage.haskell.org/package/amazonka amazonka>,+  which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.KinesisVideo.Lens" and are+  suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+  .+  See "Amazonka.KinesisVideo" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started.  source-repository head-    type:              git-    location:          git://github.com/brendanhay/amazonka.git-    subdir:            amazonka-kinesis-video+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-kinesis-video  library-    default-language:  Haskell2010-    hs-source-dirs:    src gen--    ghc-options:-        -Wall-        -fwarn-incomplete-uni-patterns-        -fwarn-incomplete-record-updates-        -funbox-strict-fields--    exposed-modules:-          Network.AWS.KinesisVideo-        , Network.AWS.KinesisVideo.CreateStream-        , Network.AWS.KinesisVideo.DeleteStream-        , Network.AWS.KinesisVideo.DescribeStream-        , Network.AWS.KinesisVideo.GetDataEndpoint-        , Network.AWS.KinesisVideo.ListStreams-        , Network.AWS.KinesisVideo.ListTagsForStream-        , Network.AWS.KinesisVideo.TagStream-        , Network.AWS.KinesisVideo.Types-        , Network.AWS.KinesisVideo.UntagStream-        , Network.AWS.KinesisVideo.UpdateDataRetention-        , Network.AWS.KinesisVideo.UpdateStream-        , Network.AWS.KinesisVideo.Waiters+  default-language: Haskell2010+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields -    other-modules:-          Network.AWS.KinesisVideo.Types.Product-        , Network.AWS.KinesisVideo.Types.Sum+  exposed-modules:+    Amazonka.KinesisVideo+    Amazonka.KinesisVideo.CreateSignalingChannel+    Amazonka.KinesisVideo.CreateStream+    Amazonka.KinesisVideo.DeleteSignalingChannel+    Amazonka.KinesisVideo.DeleteStream+    Amazonka.KinesisVideo.DescribeEdgeConfiguration+    Amazonka.KinesisVideo.DescribeImageGenerationConfiguration+    Amazonka.KinesisVideo.DescribeMappedResourceConfiguration+    Amazonka.KinesisVideo.DescribeMediaStorageConfiguration+    Amazonka.KinesisVideo.DescribeNotificationConfiguration+    Amazonka.KinesisVideo.DescribeSignalingChannel+    Amazonka.KinesisVideo.DescribeStream+    Amazonka.KinesisVideo.GetDataEndpoint+    Amazonka.KinesisVideo.GetSignalingChannelEndpoint+    Amazonka.KinesisVideo.Lens+    Amazonka.KinesisVideo.ListSignalingChannels+    Amazonka.KinesisVideo.ListStreams+    Amazonka.KinesisVideo.ListTagsForResource+    Amazonka.KinesisVideo.ListTagsForStream+    Amazonka.KinesisVideo.StartEdgeConfigurationUpdate+    Amazonka.KinesisVideo.TagResource+    Amazonka.KinesisVideo.TagStream+    Amazonka.KinesisVideo.Types+    Amazonka.KinesisVideo.Types.APIName+    Amazonka.KinesisVideo.Types.ChannelInfo+    Amazonka.KinesisVideo.Types.ChannelNameCondition+    Amazonka.KinesisVideo.Types.ChannelProtocol+    Amazonka.KinesisVideo.Types.ChannelRole+    Amazonka.KinesisVideo.Types.ChannelType+    Amazonka.KinesisVideo.Types.ComparisonOperator+    Amazonka.KinesisVideo.Types.ConfigurationStatus+    Amazonka.KinesisVideo.Types.DeletionConfig+    Amazonka.KinesisVideo.Types.EdgeConfig+    Amazonka.KinesisVideo.Types.Format+    Amazonka.KinesisVideo.Types.FormatConfigKey+    Amazonka.KinesisVideo.Types.ImageGenerationConfiguration+    Amazonka.KinesisVideo.Types.ImageGenerationDestinationConfig+    Amazonka.KinesisVideo.Types.ImageSelectorType+    Amazonka.KinesisVideo.Types.LocalSizeConfig+    Amazonka.KinesisVideo.Types.MappedResourceConfigurationListItem+    Amazonka.KinesisVideo.Types.MediaSourceConfig+    Amazonka.KinesisVideo.Types.MediaStorageConfiguration+    Amazonka.KinesisVideo.Types.MediaStorageConfigurationStatus+    Amazonka.KinesisVideo.Types.MediaUriType+    Amazonka.KinesisVideo.Types.NotificationConfiguration+    Amazonka.KinesisVideo.Types.NotificationDestinationConfig+    Amazonka.KinesisVideo.Types.RecorderConfig+    Amazonka.KinesisVideo.Types.ResourceEndpointListItem+    Amazonka.KinesisVideo.Types.ScheduleConfig+    Amazonka.KinesisVideo.Types.SingleMasterChannelEndpointConfiguration+    Amazonka.KinesisVideo.Types.SingleMasterConfiguration+    Amazonka.KinesisVideo.Types.StrategyOnFullSize+    Amazonka.KinesisVideo.Types.StreamInfo+    Amazonka.KinesisVideo.Types.StreamNameCondition+    Amazonka.KinesisVideo.Types.StreamStatus+    Amazonka.KinesisVideo.Types.SyncStatus+    Amazonka.KinesisVideo.Types.Tag+    Amazonka.KinesisVideo.Types.UpdateDataRetentionOperation+    Amazonka.KinesisVideo.Types.UploaderConfig+    Amazonka.KinesisVideo.UntagResource+    Amazonka.KinesisVideo.UntagStream+    Amazonka.KinesisVideo.UpdateDataRetention+    Amazonka.KinesisVideo.UpdateImageGenerationConfiguration+    Amazonka.KinesisVideo.UpdateMediaStorageConfiguration+    Amazonka.KinesisVideo.UpdateNotificationConfiguration+    Amazonka.KinesisVideo.UpdateSignalingChannel+    Amazonka.KinesisVideo.UpdateStream+    Amazonka.KinesisVideo.Waiters -    build-depends:-          amazonka-core == 1.6.1.*-        , base          >= 4.7     && < 5+  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5  test-suite amazonka-kinesis-video-test-    type:              exitcode-stdio-1.0-    default-language:  Haskell2010-    hs-source-dirs:    test-    main-is:           Main.hs--    ghc-options:       -Wall -threaded+  type:             exitcode-stdio-1.0+  default-language: Haskell2010+  hs-source-dirs:   test+  main-is:          Main.hs+  ghc-options:      -Wall -threaded -    -- This section is encoded by the template and any modules added by-    -- hand outside these namespaces will not correctly be added to the-    -- distribution package.-    other-modules:-          Test.AWS.KinesisVideo-        , Test.AWS.Gen.KinesisVideo-        , Test.AWS.KinesisVideo.Internal+  -- This section is encoded by the template and any modules added by+  -- hand outside these namespaces will not correctly be added to the+  -- distribution package.+  other-modules:+    Test.Amazonka.Gen.KinesisVideo+    Test.Amazonka.KinesisVideo+    Test.Amazonka.KinesisVideo.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-kinesis-video-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core           >=2.0 && <2.1+    , amazonka-kinesis-video+    , amazonka-test           >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisvideo/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  kinesisvideo.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,429 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.KinesisVideo+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2017-09-30@ of the AWS service descriptions, licensed under Apache 2.0.+module Amazonka.KinesisVideo+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** AccessDeniedException+    _AccessDeniedException,++    -- ** AccountChannelLimitExceededException+    _AccountChannelLimitExceededException,++    -- ** AccountStreamLimitExceededException+    _AccountStreamLimitExceededException,++    -- ** ClientLimitExceededException+    _ClientLimitExceededException,++    -- ** DeviceStreamLimitExceededException+    _DeviceStreamLimitExceededException,++    -- ** InvalidArgumentException+    _InvalidArgumentException,++    -- ** InvalidDeviceException+    _InvalidDeviceException,++    -- ** InvalidResourceFormatException+    _InvalidResourceFormatException,++    -- ** NoDataRetentionException+    _NoDataRetentionException,++    -- ** NotAuthorizedException+    _NotAuthorizedException,++    -- ** ResourceInUseException+    _ResourceInUseException,++    -- ** ResourceNotFoundException+    _ResourceNotFoundException,++    -- ** StreamEdgeConfigurationNotFoundException+    _StreamEdgeConfigurationNotFoundException,++    -- ** TagsPerResourceExceededLimitException+    _TagsPerResourceExceededLimitException,++    -- ** VersionMismatchException+    _VersionMismatchException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CreateSignalingChannel+    CreateSignalingChannel (CreateSignalingChannel'),+    newCreateSignalingChannel,+    CreateSignalingChannelResponse (CreateSignalingChannelResponse'),+    newCreateSignalingChannelResponse,++    -- ** CreateStream+    CreateStream (CreateStream'),+    newCreateStream,+    CreateStreamResponse (CreateStreamResponse'),+    newCreateStreamResponse,++    -- ** DeleteSignalingChannel+    DeleteSignalingChannel (DeleteSignalingChannel'),+    newDeleteSignalingChannel,+    DeleteSignalingChannelResponse (DeleteSignalingChannelResponse'),+    newDeleteSignalingChannelResponse,++    -- ** DeleteStream+    DeleteStream (DeleteStream'),+    newDeleteStream,+    DeleteStreamResponse (DeleteStreamResponse'),+    newDeleteStreamResponse,++    -- ** DescribeEdgeConfiguration+    DescribeEdgeConfiguration (DescribeEdgeConfiguration'),+    newDescribeEdgeConfiguration,+    DescribeEdgeConfigurationResponse (DescribeEdgeConfigurationResponse'),+    newDescribeEdgeConfigurationResponse,++    -- ** DescribeImageGenerationConfiguration+    DescribeImageGenerationConfiguration (DescribeImageGenerationConfiguration'),+    newDescribeImageGenerationConfiguration,+    DescribeImageGenerationConfigurationResponse (DescribeImageGenerationConfigurationResponse'),+    newDescribeImageGenerationConfigurationResponse,++    -- ** DescribeMappedResourceConfiguration (Paginated)+    DescribeMappedResourceConfiguration (DescribeMappedResourceConfiguration'),+    newDescribeMappedResourceConfiguration,+    DescribeMappedResourceConfigurationResponse (DescribeMappedResourceConfigurationResponse'),+    newDescribeMappedResourceConfigurationResponse,++    -- ** DescribeMediaStorageConfiguration+    DescribeMediaStorageConfiguration (DescribeMediaStorageConfiguration'),+    newDescribeMediaStorageConfiguration,+    DescribeMediaStorageConfigurationResponse (DescribeMediaStorageConfigurationResponse'),+    newDescribeMediaStorageConfigurationResponse,++    -- ** DescribeNotificationConfiguration+    DescribeNotificationConfiguration (DescribeNotificationConfiguration'),+    newDescribeNotificationConfiguration,+    DescribeNotificationConfigurationResponse (DescribeNotificationConfigurationResponse'),+    newDescribeNotificationConfigurationResponse,++    -- ** DescribeSignalingChannel+    DescribeSignalingChannel (DescribeSignalingChannel'),+    newDescribeSignalingChannel,+    DescribeSignalingChannelResponse (DescribeSignalingChannelResponse'),+    newDescribeSignalingChannelResponse,++    -- ** DescribeStream+    DescribeStream (DescribeStream'),+    newDescribeStream,+    DescribeStreamResponse (DescribeStreamResponse'),+    newDescribeStreamResponse,++    -- ** GetDataEndpoint+    GetDataEndpoint (GetDataEndpoint'),+    newGetDataEndpoint,+    GetDataEndpointResponse (GetDataEndpointResponse'),+    newGetDataEndpointResponse,++    -- ** GetSignalingChannelEndpoint+    GetSignalingChannelEndpoint (GetSignalingChannelEndpoint'),+    newGetSignalingChannelEndpoint,+    GetSignalingChannelEndpointResponse (GetSignalingChannelEndpointResponse'),+    newGetSignalingChannelEndpointResponse,++    -- ** ListSignalingChannels (Paginated)+    ListSignalingChannels (ListSignalingChannels'),+    newListSignalingChannels,+    ListSignalingChannelsResponse (ListSignalingChannelsResponse'),+    newListSignalingChannelsResponse,++    -- ** ListStreams (Paginated)+    ListStreams (ListStreams'),+    newListStreams,+    ListStreamsResponse (ListStreamsResponse'),+    newListStreamsResponse,++    -- ** ListTagsForResource+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** ListTagsForStream+    ListTagsForStream (ListTagsForStream'),+    newListTagsForStream,+    ListTagsForStreamResponse (ListTagsForStreamResponse'),+    newListTagsForStreamResponse,++    -- ** StartEdgeConfigurationUpdate+    StartEdgeConfigurationUpdate (StartEdgeConfigurationUpdate'),+    newStartEdgeConfigurationUpdate,+    StartEdgeConfigurationUpdateResponse (StartEdgeConfigurationUpdateResponse'),+    newStartEdgeConfigurationUpdateResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** TagStream+    TagStream (TagStream'),+    newTagStream,+    TagStreamResponse (TagStreamResponse'),+    newTagStreamResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- ** UntagStream+    UntagStream (UntagStream'),+    newUntagStream,+    UntagStreamResponse (UntagStreamResponse'),+    newUntagStreamResponse,++    -- ** UpdateDataRetention+    UpdateDataRetention (UpdateDataRetention'),+    newUpdateDataRetention,+    UpdateDataRetentionResponse (UpdateDataRetentionResponse'),+    newUpdateDataRetentionResponse,++    -- ** UpdateImageGenerationConfiguration+    UpdateImageGenerationConfiguration (UpdateImageGenerationConfiguration'),+    newUpdateImageGenerationConfiguration,+    UpdateImageGenerationConfigurationResponse (UpdateImageGenerationConfigurationResponse'),+    newUpdateImageGenerationConfigurationResponse,++    -- ** UpdateMediaStorageConfiguration+    UpdateMediaStorageConfiguration (UpdateMediaStorageConfiguration'),+    newUpdateMediaStorageConfiguration,+    UpdateMediaStorageConfigurationResponse (UpdateMediaStorageConfigurationResponse'),+    newUpdateMediaStorageConfigurationResponse,++    -- ** UpdateNotificationConfiguration+    UpdateNotificationConfiguration (UpdateNotificationConfiguration'),+    newUpdateNotificationConfiguration,+    UpdateNotificationConfigurationResponse (UpdateNotificationConfigurationResponse'),+    newUpdateNotificationConfigurationResponse,++    -- ** UpdateSignalingChannel+    UpdateSignalingChannel (UpdateSignalingChannel'),+    newUpdateSignalingChannel,+    UpdateSignalingChannelResponse (UpdateSignalingChannelResponse'),+    newUpdateSignalingChannelResponse,++    -- ** UpdateStream+    UpdateStream (UpdateStream'),+    newUpdateStream,+    UpdateStreamResponse (UpdateStreamResponse'),+    newUpdateStreamResponse,++    -- * Types++    -- ** APIName+    APIName (..),++    -- ** ChannelProtocol+    ChannelProtocol (..),++    -- ** ChannelRole+    ChannelRole (..),++    -- ** ChannelType+    ChannelType (..),++    -- ** ComparisonOperator+    ComparisonOperator (..),++    -- ** ConfigurationStatus+    ConfigurationStatus (..),++    -- ** Format+    Format (..),++    -- ** FormatConfigKey+    FormatConfigKey (..),++    -- ** ImageSelectorType+    ImageSelectorType (..),++    -- ** MediaStorageConfigurationStatus+    MediaStorageConfigurationStatus (..),++    -- ** MediaUriType+    MediaUriType (..),++    -- ** StrategyOnFullSize+    StrategyOnFullSize (..),++    -- ** StreamStatus+    StreamStatus (..),++    -- ** SyncStatus+    SyncStatus (..),++    -- ** UpdateDataRetentionOperation+    UpdateDataRetentionOperation (..),++    -- ** ChannelInfo+    ChannelInfo (ChannelInfo'),+    newChannelInfo,++    -- ** ChannelNameCondition+    ChannelNameCondition (ChannelNameCondition'),+    newChannelNameCondition,++    -- ** DeletionConfig+    DeletionConfig (DeletionConfig'),+    newDeletionConfig,++    -- ** EdgeConfig+    EdgeConfig (EdgeConfig'),+    newEdgeConfig,++    -- ** ImageGenerationConfiguration+    ImageGenerationConfiguration (ImageGenerationConfiguration'),+    newImageGenerationConfiguration,++    -- ** ImageGenerationDestinationConfig+    ImageGenerationDestinationConfig (ImageGenerationDestinationConfig'),+    newImageGenerationDestinationConfig,++    -- ** LocalSizeConfig+    LocalSizeConfig (LocalSizeConfig'),+    newLocalSizeConfig,++    -- ** MappedResourceConfigurationListItem+    MappedResourceConfigurationListItem (MappedResourceConfigurationListItem'),+    newMappedResourceConfigurationListItem,++    -- ** MediaSourceConfig+    MediaSourceConfig (MediaSourceConfig'),+    newMediaSourceConfig,++    -- ** MediaStorageConfiguration+    MediaStorageConfiguration (MediaStorageConfiguration'),+    newMediaStorageConfiguration,++    -- ** NotificationConfiguration+    NotificationConfiguration (NotificationConfiguration'),+    newNotificationConfiguration,++    -- ** NotificationDestinationConfig+    NotificationDestinationConfig (NotificationDestinationConfig'),+    newNotificationDestinationConfig,++    -- ** RecorderConfig+    RecorderConfig (RecorderConfig'),+    newRecorderConfig,++    -- ** ResourceEndpointListItem+    ResourceEndpointListItem (ResourceEndpointListItem'),+    newResourceEndpointListItem,++    -- ** ScheduleConfig+    ScheduleConfig (ScheduleConfig'),+    newScheduleConfig,++    -- ** SingleMasterChannelEndpointConfiguration+    SingleMasterChannelEndpointConfiguration (SingleMasterChannelEndpointConfiguration'),+    newSingleMasterChannelEndpointConfiguration,++    -- ** SingleMasterConfiguration+    SingleMasterConfiguration (SingleMasterConfiguration'),+    newSingleMasterConfiguration,++    -- ** StreamInfo+    StreamInfo (StreamInfo'),+    newStreamInfo,++    -- ** StreamNameCondition+    StreamNameCondition (StreamNameCondition'),+    newStreamNameCondition,++    -- ** Tag+    Tag (Tag'),+    newTag,++    -- ** UploaderConfig+    UploaderConfig (UploaderConfig'),+    newUploaderConfig,+  )+where++import Amazonka.KinesisVideo.CreateSignalingChannel+import Amazonka.KinesisVideo.CreateStream+import Amazonka.KinesisVideo.DeleteSignalingChannel+import Amazonka.KinesisVideo.DeleteStream+import Amazonka.KinesisVideo.DescribeEdgeConfiguration+import Amazonka.KinesisVideo.DescribeImageGenerationConfiguration+import Amazonka.KinesisVideo.DescribeMappedResourceConfiguration+import Amazonka.KinesisVideo.DescribeMediaStorageConfiguration+import Amazonka.KinesisVideo.DescribeNotificationConfiguration+import Amazonka.KinesisVideo.DescribeSignalingChannel+import Amazonka.KinesisVideo.DescribeStream+import Amazonka.KinesisVideo.GetDataEndpoint+import Amazonka.KinesisVideo.GetSignalingChannelEndpoint+import Amazonka.KinesisVideo.Lens+import Amazonka.KinesisVideo.ListSignalingChannels+import Amazonka.KinesisVideo.ListStreams+import Amazonka.KinesisVideo.ListTagsForResource+import Amazonka.KinesisVideo.ListTagsForStream+import Amazonka.KinesisVideo.StartEdgeConfigurationUpdate+import Amazonka.KinesisVideo.TagResource+import Amazonka.KinesisVideo.TagStream+import Amazonka.KinesisVideo.Types+import Amazonka.KinesisVideo.UntagResource+import Amazonka.KinesisVideo.UntagStream+import Amazonka.KinesisVideo.UpdateDataRetention+import Amazonka.KinesisVideo.UpdateImageGenerationConfiguration+import Amazonka.KinesisVideo.UpdateMediaStorageConfiguration+import Amazonka.KinesisVideo.UpdateNotificationConfiguration+import Amazonka.KinesisVideo.UpdateSignalingChannel+import Amazonka.KinesisVideo.UpdateStream+import Amazonka.KinesisVideo.Waiters++-- $errors+-- Error matchers are designed for use with the functions provided by+-- <http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+-- This allows catching (and rethrowing) service specific errors returned+-- by 'KinesisVideo'.++-- $operations+-- Some AWS operations return results that are incomplete and require subsequent+-- requests in order to obtain the entire result set. The process of sending+-- subsequent requests to continue where a previous request left off is called+-- pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+-- 1000 objects at a time, and you must send subsequent requests with the+-- appropriate Marker in order to retrieve the next page of results.+--+-- Operations that have an 'AWSPager' instance can transparently perform subsequent+-- requests, correctly setting Markers and other request facets to iterate through+-- the entire result set of a truncated API operation. Operations which support+-- this have an additional note in the documentation.+--+-- Many operations have the ability to filter results on the server side. See the+-- individual operation parameters for details.++-- $waiters+-- Waiters poll by repeatedly sending a request until some remote success condition+-- configured by the 'Wait' specification is fulfilled. The 'Wait' specification+-- determines how many attempts should be made, in addition to delay and retry strategies.

@@ -0,0 +1,222 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.CreateSignalingChannel+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a signaling channel.+--+-- @CreateSignalingChannel@ is an asynchronous operation.+module Amazonka.KinesisVideo.CreateSignalingChannel+  ( -- * Creating a Request+    CreateSignalingChannel (..),+    newCreateSignalingChannel,++    -- * Request Lenses+    createSignalingChannel_channelType,+    createSignalingChannel_singleMasterConfiguration,+    createSignalingChannel_tags,+    createSignalingChannel_channelName,++    -- * Destructuring the Response+    CreateSignalingChannelResponse (..),+    newCreateSignalingChannelResponse,++    -- * Response Lenses+    createSignalingChannelResponse_channelARN,+    createSignalingChannelResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateSignalingChannel' smart constructor.+data CreateSignalingChannel = CreateSignalingChannel'+  { -- | A type of the signaling channel that you are creating. Currently,+    -- @SINGLE_MASTER@ is the only supported channel type.+    channelType :: Prelude.Maybe ChannelType,+    -- | A structure containing the configuration for the @SINGLE_MASTER@ channel+    -- type.+    singleMasterConfiguration :: Prelude.Maybe SingleMasterConfiguration,+    -- | A set of tags (key-value pairs) that you want to associate with this+    -- channel.+    tags :: Prelude.Maybe [Tag],+    -- | A name for the signaling channel that you are creating. It must be+    -- unique for each Amazon Web Services account and Amazon Web Services+    -- Region.+    channelName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSignalingChannel' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'channelType', 'createSignalingChannel_channelType' - A type of the signaling channel that you are creating. Currently,+-- @SINGLE_MASTER@ is the only supported channel type.+--+-- 'singleMasterConfiguration', 'createSignalingChannel_singleMasterConfiguration' - A structure containing the configuration for the @SINGLE_MASTER@ channel+-- type.+--+-- 'tags', 'createSignalingChannel_tags' - A set of tags (key-value pairs) that you want to associate with this+-- channel.+--+-- 'channelName', 'createSignalingChannel_channelName' - A name for the signaling channel that you are creating. It must be+-- unique for each Amazon Web Services account and Amazon Web Services+-- Region.+newCreateSignalingChannel ::+  -- | 'channelName'+  Prelude.Text ->+  CreateSignalingChannel+newCreateSignalingChannel pChannelName_ =+  CreateSignalingChannel'+    { channelType =+        Prelude.Nothing,+      singleMasterConfiguration = Prelude.Nothing,+      tags = Prelude.Nothing,+      channelName = pChannelName_+    }++-- | A type of the signaling channel that you are creating. Currently,+-- @SINGLE_MASTER@ is the only supported channel type.+createSignalingChannel_channelType :: Lens.Lens' CreateSignalingChannel (Prelude.Maybe ChannelType)+createSignalingChannel_channelType = Lens.lens (\CreateSignalingChannel' {channelType} -> channelType) (\s@CreateSignalingChannel' {} a -> s {channelType = a} :: CreateSignalingChannel)++-- | A structure containing the configuration for the @SINGLE_MASTER@ channel+-- type.+createSignalingChannel_singleMasterConfiguration :: Lens.Lens' CreateSignalingChannel (Prelude.Maybe SingleMasterConfiguration)+createSignalingChannel_singleMasterConfiguration = Lens.lens (\CreateSignalingChannel' {singleMasterConfiguration} -> singleMasterConfiguration) (\s@CreateSignalingChannel' {} a -> s {singleMasterConfiguration = a} :: CreateSignalingChannel)++-- | A set of tags (key-value pairs) that you want to associate with this+-- channel.+createSignalingChannel_tags :: Lens.Lens' CreateSignalingChannel (Prelude.Maybe [Tag])+createSignalingChannel_tags = Lens.lens (\CreateSignalingChannel' {tags} -> tags) (\s@CreateSignalingChannel' {} a -> s {tags = a} :: CreateSignalingChannel) Prelude.. Lens.mapping Lens.coerced++-- | A name for the signaling channel that you are creating. It must be+-- unique for each Amazon Web Services account and Amazon Web Services+-- Region.+createSignalingChannel_channelName :: Lens.Lens' CreateSignalingChannel Prelude.Text+createSignalingChannel_channelName = Lens.lens (\CreateSignalingChannel' {channelName} -> channelName) (\s@CreateSignalingChannel' {} a -> s {channelName = a} :: CreateSignalingChannel)++instance Core.AWSRequest CreateSignalingChannel where+  type+    AWSResponse CreateSignalingChannel =+      CreateSignalingChannelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateSignalingChannelResponse'+            Prelude.<$> (x Data..?> "ChannelARN")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateSignalingChannel where+  hashWithSalt _salt CreateSignalingChannel' {..} =+    _salt+      `Prelude.hashWithSalt` channelType+      `Prelude.hashWithSalt` singleMasterConfiguration+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` channelName++instance Prelude.NFData CreateSignalingChannel where+  rnf CreateSignalingChannel' {..} =+    Prelude.rnf channelType+      `Prelude.seq` Prelude.rnf singleMasterConfiguration+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf channelName++instance Data.ToHeaders CreateSignalingChannel where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON CreateSignalingChannel where+  toJSON CreateSignalingChannel' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ChannelType" Data..=) Prelude.<$> channelType,+            ("SingleMasterConfiguration" Data..=)+              Prelude.<$> singleMasterConfiguration,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("ChannelName" Data..= channelName)+          ]+      )++instance Data.ToPath CreateSignalingChannel where+  toPath = Prelude.const "/createSignalingChannel"++instance Data.ToQuery CreateSignalingChannel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateSignalingChannelResponse' smart constructor.+data CreateSignalingChannelResponse = CreateSignalingChannelResponse'+  { -- | The Amazon Resource Name (ARN) of the created channel.+    channelARN :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSignalingChannelResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'channelARN', 'createSignalingChannelResponse_channelARN' - The Amazon Resource Name (ARN) of the created channel.+--+-- 'httpStatus', 'createSignalingChannelResponse_httpStatus' - The response's http status code.+newCreateSignalingChannelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateSignalingChannelResponse+newCreateSignalingChannelResponse pHttpStatus_ =+  CreateSignalingChannelResponse'+    { channelARN =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Amazon Resource Name (ARN) of the created channel.+createSignalingChannelResponse_channelARN :: Lens.Lens' CreateSignalingChannelResponse (Prelude.Maybe Prelude.Text)+createSignalingChannelResponse_channelARN = Lens.lens (\CreateSignalingChannelResponse' {channelARN} -> channelARN) (\s@CreateSignalingChannelResponse' {} a -> s {channelARN = a} :: CreateSignalingChannelResponse)++-- | The response's http status code.+createSignalingChannelResponse_httpStatus :: Lens.Lens' CreateSignalingChannelResponse Prelude.Int+createSignalingChannelResponse_httpStatus = Lens.lens (\CreateSignalingChannelResponse' {httpStatus} -> httpStatus) (\s@CreateSignalingChannelResponse' {} a -> s {httpStatus = a} :: CreateSignalingChannelResponse)++instance+  Prelude.NFData+    CreateSignalingChannelResponse+  where+  rnf CreateSignalingChannelResponse' {..} =+    Prelude.rnf channelARN+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,344 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.CreateStream+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new Kinesis video stream.+--+-- When you create a new stream, Kinesis Video Streams assigns it a version+-- number. When you change the stream\'s metadata, Kinesis Video Streams+-- updates the version.+--+-- @CreateStream@ is an asynchronous operation.+--+-- For information about how the service works, see+-- <https://docs.aws.amazon.com/kinesisvideostreams/latest/dg/how-it-works.html How it Works>.+--+-- You must have permissions for the @KinesisVideo:CreateStream@ action.+module Amazonka.KinesisVideo.CreateStream+  ( -- * Creating a Request+    CreateStream (..),+    newCreateStream,++    -- * Request Lenses+    createStream_dataRetentionInHours,+    createStream_deviceName,+    createStream_kmsKeyId,+    createStream_mediaType,+    createStream_tags,+    createStream_streamName,++    -- * Destructuring the Response+    CreateStreamResponse (..),+    newCreateStreamResponse,++    -- * Response Lenses+    createStreamResponse_streamARN,+    createStreamResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateStream' smart constructor.+data CreateStream = CreateStream'+  { -- | The number of hours that you want to retain the data in the stream.+    -- Kinesis Video Streams retains the data in a data store that is+    -- associated with the stream.+    --+    -- The default value is 0, indicating that the stream does not persist+    -- data.+    --+    -- When the @DataRetentionInHours@ value is 0, consumers can still consume+    -- the fragments that remain in the service host buffer, which has a+    -- retention time limit of 5 minutes and a retention memory limit of 200+    -- MB. Fragments are removed from the buffer when either limit is reached.+    dataRetentionInHours :: Prelude.Maybe Prelude.Natural,+    -- | The name of the device that is writing to the stream.+    --+    -- In the current implementation, Kinesis Video Streams does not use this+    -- name.+    deviceName :: Prelude.Maybe Prelude.Text,+    -- | The ID of the Key Management Service (KMS) key that you want Kinesis+    -- Video Streams to use to encrypt stream data.+    --+    -- If no key ID is specified, the default, Kinesis Video-managed key+    -- (@aws\/kinesisvideo@) is used.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/kms/latest/APIReference/API_DescribeKey.html#API_DescribeKey_RequestParameters DescribeKey>.+    kmsKeyId :: Prelude.Maybe Prelude.Text,+    -- | The media type of the stream. Consumers of the stream can use this+    -- information when processing the stream. For more information about media+    -- types, see+    -- <http://www.iana.org/assignments/media-types/media-types.xhtml Media Types>.+    -- If you choose to specify the @MediaType@, see+    -- <https://tools.ietf.org/html/rfc6838#section-4.2 Naming Requirements>+    -- for guidelines.+    --+    -- Example valid values include \"video\/h264\" and+    -- \"video\/h264,audio\/aac\".+    --+    -- This parameter is optional; the default value is @null@ (or empty in+    -- JSON).+    mediaType :: Prelude.Maybe Prelude.Text,+    -- | A list of tags to associate with the specified stream. Each tag is a+    -- key-value pair (the value is optional).+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | A name for the stream that you are creating.+    --+    -- The stream name is an identifier for the stream, and must be unique for+    -- each account and region.+    streamName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateStream' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dataRetentionInHours', 'createStream_dataRetentionInHours' - The number of hours that you want to retain the data in the stream.+-- Kinesis Video Streams retains the data in a data store that is+-- associated with the stream.+--+-- The default value is 0, indicating that the stream does not persist+-- data.+--+-- When the @DataRetentionInHours@ value is 0, consumers can still consume+-- the fragments that remain in the service host buffer, which has a+-- retention time limit of 5 minutes and a retention memory limit of 200+-- MB. Fragments are removed from the buffer when either limit is reached.+--+-- 'deviceName', 'createStream_deviceName' - The name of the device that is writing to the stream.+--+-- In the current implementation, Kinesis Video Streams does not use this+-- name.+--+-- 'kmsKeyId', 'createStream_kmsKeyId' - The ID of the Key Management Service (KMS) key that you want Kinesis+-- Video Streams to use to encrypt stream data.+--+-- If no key ID is specified, the default, Kinesis Video-managed key+-- (@aws\/kinesisvideo@) is used.+--+-- For more information, see+-- <https://docs.aws.amazon.com/kms/latest/APIReference/API_DescribeKey.html#API_DescribeKey_RequestParameters DescribeKey>.+--+-- 'mediaType', 'createStream_mediaType' - The media type of the stream. Consumers of the stream can use this+-- information when processing the stream. For more information about media+-- types, see+-- <http://www.iana.org/assignments/media-types/media-types.xhtml Media Types>.+-- If you choose to specify the @MediaType@, see+-- <https://tools.ietf.org/html/rfc6838#section-4.2 Naming Requirements>+-- for guidelines.+--+-- Example valid values include \"video\/h264\" and+-- \"video\/h264,audio\/aac\".+--+-- This parameter is optional; the default value is @null@ (or empty in+-- JSON).+--+-- 'tags', 'createStream_tags' - A list of tags to associate with the specified stream. Each tag is a+-- key-value pair (the value is optional).+--+-- 'streamName', 'createStream_streamName' - A name for the stream that you are creating.+--+-- The stream name is an identifier for the stream, and must be unique for+-- each account and region.+newCreateStream ::+  -- | 'streamName'+  Prelude.Text ->+  CreateStream+newCreateStream pStreamName_ =+  CreateStream'+    { dataRetentionInHours =+        Prelude.Nothing,+      deviceName = Prelude.Nothing,+      kmsKeyId = Prelude.Nothing,+      mediaType = Prelude.Nothing,+      tags = Prelude.Nothing,+      streamName = pStreamName_+    }++-- | The number of hours that you want to retain the data in the stream.+-- Kinesis Video Streams retains the data in a data store that is+-- associated with the stream.+--+-- The default value is 0, indicating that the stream does not persist+-- data.+--+-- When the @DataRetentionInHours@ value is 0, consumers can still consume+-- the fragments that remain in the service host buffer, which has a+-- retention time limit of 5 minutes and a retention memory limit of 200+-- MB. Fragments are removed from the buffer when either limit is reached.+createStream_dataRetentionInHours :: Lens.Lens' CreateStream (Prelude.Maybe Prelude.Natural)+createStream_dataRetentionInHours = Lens.lens (\CreateStream' {dataRetentionInHours} -> dataRetentionInHours) (\s@CreateStream' {} a -> s {dataRetentionInHours = a} :: CreateStream)++-- | The name of the device that is writing to the stream.+--+-- In the current implementation, Kinesis Video Streams does not use this+-- name.+createStream_deviceName :: Lens.Lens' CreateStream (Prelude.Maybe Prelude.Text)+createStream_deviceName = Lens.lens (\CreateStream' {deviceName} -> deviceName) (\s@CreateStream' {} a -> s {deviceName = a} :: CreateStream)++-- | The ID of the Key Management Service (KMS) key that you want Kinesis+-- Video Streams to use to encrypt stream data.+--+-- If no key ID is specified, the default, Kinesis Video-managed key+-- (@aws\/kinesisvideo@) is used.+--+-- For more information, see+-- <https://docs.aws.amazon.com/kms/latest/APIReference/API_DescribeKey.html#API_DescribeKey_RequestParameters DescribeKey>.+createStream_kmsKeyId :: Lens.Lens' CreateStream (Prelude.Maybe Prelude.Text)+createStream_kmsKeyId = Lens.lens (\CreateStream' {kmsKeyId} -> kmsKeyId) (\s@CreateStream' {} a -> s {kmsKeyId = a} :: CreateStream)++-- | The media type of the stream. Consumers of the stream can use this+-- information when processing the stream. For more information about media+-- types, see+-- <http://www.iana.org/assignments/media-types/media-types.xhtml Media Types>.+-- If you choose to specify the @MediaType@, see+-- <https://tools.ietf.org/html/rfc6838#section-4.2 Naming Requirements>+-- for guidelines.+--+-- Example valid values include \"video\/h264\" and+-- \"video\/h264,audio\/aac\".+--+-- This parameter is optional; the default value is @null@ (or empty in+-- JSON).+createStream_mediaType :: Lens.Lens' CreateStream (Prelude.Maybe Prelude.Text)+createStream_mediaType = Lens.lens (\CreateStream' {mediaType} -> mediaType) (\s@CreateStream' {} a -> s {mediaType = a} :: CreateStream)++-- | A list of tags to associate with the specified stream. Each tag is a+-- key-value pair (the value is optional).+createStream_tags :: Lens.Lens' CreateStream (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createStream_tags = Lens.lens (\CreateStream' {tags} -> tags) (\s@CreateStream' {} a -> s {tags = a} :: CreateStream) Prelude.. Lens.mapping Lens.coerced++-- | A name for the stream that you are creating.+--+-- The stream name is an identifier for the stream, and must be unique for+-- each account and region.+createStream_streamName :: Lens.Lens' CreateStream Prelude.Text+createStream_streamName = Lens.lens (\CreateStream' {streamName} -> streamName) (\s@CreateStream' {} a -> s {streamName = a} :: CreateStream)++instance Core.AWSRequest CreateStream where+  type AWSResponse CreateStream = CreateStreamResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateStreamResponse'+            Prelude.<$> (x Data..?> "StreamARN")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateStream where+  hashWithSalt _salt CreateStream' {..} =+    _salt+      `Prelude.hashWithSalt` dataRetentionInHours+      `Prelude.hashWithSalt` deviceName+      `Prelude.hashWithSalt` kmsKeyId+      `Prelude.hashWithSalt` mediaType+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` streamName++instance Prelude.NFData CreateStream where+  rnf CreateStream' {..} =+    Prelude.rnf dataRetentionInHours+      `Prelude.seq` Prelude.rnf deviceName+      `Prelude.seq` Prelude.rnf kmsKeyId+      `Prelude.seq` Prelude.rnf mediaType+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf streamName++instance Data.ToHeaders CreateStream where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON CreateStream where+  toJSON CreateStream' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DataRetentionInHours" Data..=)+              Prelude.<$> dataRetentionInHours,+            ("DeviceName" Data..=) Prelude.<$> deviceName,+            ("KmsKeyId" Data..=) Prelude.<$> kmsKeyId,+            ("MediaType" Data..=) Prelude.<$> mediaType,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("StreamName" Data..= streamName)+          ]+      )++instance Data.ToPath CreateStream where+  toPath = Prelude.const "/createStream"++instance Data.ToQuery CreateStream where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateStreamResponse' smart constructor.+data CreateStreamResponse = CreateStreamResponse'+  { -- | The Amazon Resource Name (ARN) of the stream.+    streamARN :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateStreamResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'streamARN', 'createStreamResponse_streamARN' - The Amazon Resource Name (ARN) of the stream.+--+-- 'httpStatus', 'createStreamResponse_httpStatus' - The response's http status code.+newCreateStreamResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateStreamResponse+newCreateStreamResponse pHttpStatus_ =+  CreateStreamResponse'+    { streamARN = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Amazon Resource Name (ARN) of the stream.+createStreamResponse_streamARN :: Lens.Lens' CreateStreamResponse (Prelude.Maybe Prelude.Text)+createStreamResponse_streamARN = Lens.lens (\CreateStreamResponse' {streamARN} -> streamARN) (\s@CreateStreamResponse' {} a -> s {streamARN = a} :: CreateStreamResponse)++-- | The response's http status code.+createStreamResponse_httpStatus :: Lens.Lens' CreateStreamResponse Prelude.Int+createStreamResponse_httpStatus = Lens.lens (\CreateStreamResponse' {httpStatus} -> httpStatus) (\s@CreateStreamResponse' {} a -> s {httpStatus = a} :: CreateStreamResponse)++instance Prelude.NFData CreateStreamResponse where+  rnf CreateStreamResponse' {..} =+    Prelude.rnf streamARN+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,178 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.DeleteSignalingChannel+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a specified signaling channel. @DeleteSignalingChannel@ is an+-- asynchronous operation. If you don\'t specify the channel\'s current+-- version, the most recent version is deleted.+module Amazonka.KinesisVideo.DeleteSignalingChannel+  ( -- * Creating a Request+    DeleteSignalingChannel (..),+    newDeleteSignalingChannel,++    -- * Request Lenses+    deleteSignalingChannel_currentVersion,+    deleteSignalingChannel_channelARN,++    -- * Destructuring the Response+    DeleteSignalingChannelResponse (..),+    newDeleteSignalingChannelResponse,++    -- * Response Lenses+    deleteSignalingChannelResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteSignalingChannel' smart constructor.+data DeleteSignalingChannel = DeleteSignalingChannel'+  { -- | The current version of the signaling channel that you want to delete.+    -- You can obtain the current version by invoking the+    -- @DescribeSignalingChannel@ or @ListSignalingChannels@ API operations.+    currentVersion :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the signaling channel that you want to+    -- delete.+    channelARN :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSignalingChannel' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'currentVersion', 'deleteSignalingChannel_currentVersion' - The current version of the signaling channel that you want to delete.+-- You can obtain the current version by invoking the+-- @DescribeSignalingChannel@ or @ListSignalingChannels@ API operations.+--+-- 'channelARN', 'deleteSignalingChannel_channelARN' - The Amazon Resource Name (ARN) of the signaling channel that you want to+-- delete.+newDeleteSignalingChannel ::+  -- | 'channelARN'+  Prelude.Text ->+  DeleteSignalingChannel+newDeleteSignalingChannel pChannelARN_ =+  DeleteSignalingChannel'+    { currentVersion =+        Prelude.Nothing,+      channelARN = pChannelARN_+    }++-- | The current version of the signaling channel that you want to delete.+-- You can obtain the current version by invoking the+-- @DescribeSignalingChannel@ or @ListSignalingChannels@ API operations.+deleteSignalingChannel_currentVersion :: Lens.Lens' DeleteSignalingChannel (Prelude.Maybe Prelude.Text)+deleteSignalingChannel_currentVersion = Lens.lens (\DeleteSignalingChannel' {currentVersion} -> currentVersion) (\s@DeleteSignalingChannel' {} a -> s {currentVersion = a} :: DeleteSignalingChannel)++-- | The Amazon Resource Name (ARN) of the signaling channel that you want to+-- delete.+deleteSignalingChannel_channelARN :: Lens.Lens' DeleteSignalingChannel Prelude.Text+deleteSignalingChannel_channelARN = Lens.lens (\DeleteSignalingChannel' {channelARN} -> channelARN) (\s@DeleteSignalingChannel' {} a -> s {channelARN = a} :: DeleteSignalingChannel)++instance Core.AWSRequest DeleteSignalingChannel where+  type+    AWSResponse DeleteSignalingChannel =+      DeleteSignalingChannelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteSignalingChannelResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteSignalingChannel where+  hashWithSalt _salt DeleteSignalingChannel' {..} =+    _salt+      `Prelude.hashWithSalt` currentVersion+      `Prelude.hashWithSalt` channelARN++instance Prelude.NFData DeleteSignalingChannel where+  rnf DeleteSignalingChannel' {..} =+    Prelude.rnf currentVersion+      `Prelude.seq` Prelude.rnf channelARN++instance Data.ToHeaders DeleteSignalingChannel where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON DeleteSignalingChannel where+  toJSON DeleteSignalingChannel' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("CurrentVersion" Data..=)+              Prelude.<$> currentVersion,+            Prelude.Just ("ChannelARN" Data..= channelARN)+          ]+      )++instance Data.ToPath DeleteSignalingChannel where+  toPath = Prelude.const "/deleteSignalingChannel"++instance Data.ToQuery DeleteSignalingChannel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteSignalingChannelResponse' smart constructor.+data DeleteSignalingChannelResponse = DeleteSignalingChannelResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSignalingChannelResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteSignalingChannelResponse_httpStatus' - The response's http status code.+newDeleteSignalingChannelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteSignalingChannelResponse+newDeleteSignalingChannelResponse pHttpStatus_ =+  DeleteSignalingChannelResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteSignalingChannelResponse_httpStatus :: Lens.Lens' DeleteSignalingChannelResponse Prelude.Int+deleteSignalingChannelResponse_httpStatus = Lens.lens (\DeleteSignalingChannelResponse' {httpStatus} -> httpStatus) (\s@DeleteSignalingChannelResponse' {} a -> s {httpStatus = a} :: DeleteSignalingChannelResponse)++instance+  Prelude.NFData+    DeleteSignalingChannelResponse+  where+  rnf DeleteSignalingChannelResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,188 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.DeleteStream+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a Kinesis video stream and the data contained in the stream.+--+-- This method marks the stream for deletion, and makes the data in the+-- stream inaccessible immediately.+--+-- To ensure that you have the latest version of the stream before deleting+-- it, you can specify the stream version. Kinesis Video Streams assigns a+-- version to each stream. When you update a stream, Kinesis Video Streams+-- assigns a new version number. To get the latest stream version, use the+-- @DescribeStream@ API.+--+-- This operation requires permission for the @KinesisVideo:DeleteStream@+-- action.+module Amazonka.KinesisVideo.DeleteStream+  ( -- * Creating a Request+    DeleteStream (..),+    newDeleteStream,++    -- * Request Lenses+    deleteStream_currentVersion,+    deleteStream_streamARN,++    -- * Destructuring the Response+    DeleteStreamResponse (..),+    newDeleteStreamResponse,++    -- * Response Lenses+    deleteStreamResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteStream' smart constructor.+data DeleteStream = DeleteStream'+  { -- | Optional: The version of the stream that you want to delete.+    --+    -- Specify the version as a safeguard to ensure that your are deleting the+    -- correct stream. To get the stream version, use the @DescribeStream@ API.+    --+    -- If not specified, only the @CreationTime@ is checked before deleting the+    -- stream.+    currentVersion :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the stream that you want to delete.+    streamARN :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteStream' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'currentVersion', 'deleteStream_currentVersion' - Optional: The version of the stream that you want to delete.+--+-- Specify the version as a safeguard to ensure that your are deleting the+-- correct stream. To get the stream version, use the @DescribeStream@ API.+--+-- If not specified, only the @CreationTime@ is checked before deleting the+-- stream.+--+-- 'streamARN', 'deleteStream_streamARN' - The Amazon Resource Name (ARN) of the stream that you want to delete.+newDeleteStream ::+  -- | 'streamARN'+  Prelude.Text ->+  DeleteStream+newDeleteStream pStreamARN_ =+  DeleteStream'+    { currentVersion = Prelude.Nothing,+      streamARN = pStreamARN_+    }++-- | Optional: The version of the stream that you want to delete.+--+-- Specify the version as a safeguard to ensure that your are deleting the+-- correct stream. To get the stream version, use the @DescribeStream@ API.+--+-- If not specified, only the @CreationTime@ is checked before deleting the+-- stream.+deleteStream_currentVersion :: Lens.Lens' DeleteStream (Prelude.Maybe Prelude.Text)+deleteStream_currentVersion = Lens.lens (\DeleteStream' {currentVersion} -> currentVersion) (\s@DeleteStream' {} a -> s {currentVersion = a} :: DeleteStream)++-- | The Amazon Resource Name (ARN) of the stream that you want to delete.+deleteStream_streamARN :: Lens.Lens' DeleteStream Prelude.Text+deleteStream_streamARN = Lens.lens (\DeleteStream' {streamARN} -> streamARN) (\s@DeleteStream' {} a -> s {streamARN = a} :: DeleteStream)++instance Core.AWSRequest DeleteStream where+  type AWSResponse DeleteStream = DeleteStreamResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteStreamResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteStream where+  hashWithSalt _salt DeleteStream' {..} =+    _salt+      `Prelude.hashWithSalt` currentVersion+      `Prelude.hashWithSalt` streamARN++instance Prelude.NFData DeleteStream where+  rnf DeleteStream' {..} =+    Prelude.rnf currentVersion+      `Prelude.seq` Prelude.rnf streamARN++instance Data.ToHeaders DeleteStream where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON DeleteStream where+  toJSON DeleteStream' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("CurrentVersion" Data..=)+              Prelude.<$> currentVersion,+            Prelude.Just ("StreamARN" Data..= streamARN)+          ]+      )++instance Data.ToPath DeleteStream where+  toPath = Prelude.const "/deleteStream"++instance Data.ToQuery DeleteStream where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteStreamResponse' smart constructor.+data DeleteStreamResponse = DeleteStreamResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteStreamResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteStreamResponse_httpStatus' - The response's http status code.+newDeleteStreamResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteStreamResponse+newDeleteStreamResponse pHttpStatus_ =+  DeleteStreamResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteStreamResponse_httpStatus :: Lens.Lens' DeleteStreamResponse Prelude.Int+deleteStreamResponse_httpStatus = Lens.lens (\DeleteStreamResponse' {httpStatus} -> httpStatus) (\s@DeleteStreamResponse' {} a -> s {httpStatus = a} :: DeleteStreamResponse)++instance Prelude.NFData DeleteStreamResponse where+  rnf DeleteStreamResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,262 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.DescribeEdgeConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes a stream’s edge configuration that was set using the+-- @StartEdgeConfigurationUpdate@ API. Use this API to get the status of+-- the configuration if the configuration is in sync with the Edge Agent.+module Amazonka.KinesisVideo.DescribeEdgeConfiguration+  ( -- * Creating a Request+    DescribeEdgeConfiguration (..),+    newDescribeEdgeConfiguration,++    -- * Request Lenses+    describeEdgeConfiguration_streamARN,+    describeEdgeConfiguration_streamName,++    -- * Destructuring the Response+    DescribeEdgeConfigurationResponse (..),+    newDescribeEdgeConfigurationResponse,++    -- * Response Lenses+    describeEdgeConfigurationResponse_creationTime,+    describeEdgeConfigurationResponse_edgeConfig,+    describeEdgeConfigurationResponse_failedStatusDetails,+    describeEdgeConfigurationResponse_lastUpdatedTime,+    describeEdgeConfigurationResponse_streamARN,+    describeEdgeConfigurationResponse_streamName,+    describeEdgeConfigurationResponse_syncStatus,+    describeEdgeConfigurationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeEdgeConfiguration' smart constructor.+data DescribeEdgeConfiguration = DescribeEdgeConfiguration'+  { -- | The Amazon Resource Name (ARN) of the stream. Specify either the+    -- @StreamName@or the @StreamARN@.+    streamARN :: Prelude.Maybe Prelude.Text,+    -- | The name of the stream whose edge configuration you want to update.+    -- Specify either the @StreamName@ or the @StreamARN@.+    streamName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEdgeConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'streamARN', 'describeEdgeConfiguration_streamARN' - The Amazon Resource Name (ARN) of the stream. Specify either the+-- @StreamName@or the @StreamARN@.+--+-- 'streamName', 'describeEdgeConfiguration_streamName' - The name of the stream whose edge configuration you want to update.+-- Specify either the @StreamName@ or the @StreamARN@.+newDescribeEdgeConfiguration ::+  DescribeEdgeConfiguration+newDescribeEdgeConfiguration =+  DescribeEdgeConfiguration'+    { streamARN =+        Prelude.Nothing,+      streamName = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the stream. Specify either the+-- @StreamName@or the @StreamARN@.+describeEdgeConfiguration_streamARN :: Lens.Lens' DescribeEdgeConfiguration (Prelude.Maybe Prelude.Text)+describeEdgeConfiguration_streamARN = Lens.lens (\DescribeEdgeConfiguration' {streamARN} -> streamARN) (\s@DescribeEdgeConfiguration' {} a -> s {streamARN = a} :: DescribeEdgeConfiguration)++-- | The name of the stream whose edge configuration you want to update.+-- Specify either the @StreamName@ or the @StreamARN@.+describeEdgeConfiguration_streamName :: Lens.Lens' DescribeEdgeConfiguration (Prelude.Maybe Prelude.Text)+describeEdgeConfiguration_streamName = Lens.lens (\DescribeEdgeConfiguration' {streamName} -> streamName) (\s@DescribeEdgeConfiguration' {} a -> s {streamName = a} :: DescribeEdgeConfiguration)++instance Core.AWSRequest DescribeEdgeConfiguration where+  type+    AWSResponse DescribeEdgeConfiguration =+      DescribeEdgeConfigurationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeEdgeConfigurationResponse'+            Prelude.<$> (x Data..?> "CreationTime")+            Prelude.<*> (x Data..?> "EdgeConfig")+            Prelude.<*> (x Data..?> "FailedStatusDetails")+            Prelude.<*> (x Data..?> "LastUpdatedTime")+            Prelude.<*> (x Data..?> "StreamARN")+            Prelude.<*> (x Data..?> "StreamName")+            Prelude.<*> (x Data..?> "SyncStatus")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeEdgeConfiguration where+  hashWithSalt _salt DescribeEdgeConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` streamARN+      `Prelude.hashWithSalt` streamName++instance Prelude.NFData DescribeEdgeConfiguration where+  rnf DescribeEdgeConfiguration' {..} =+    Prelude.rnf streamARN+      `Prelude.seq` Prelude.rnf streamName++instance Data.ToHeaders DescribeEdgeConfiguration where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON DescribeEdgeConfiguration where+  toJSON DescribeEdgeConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("StreamARN" Data..=) Prelude.<$> streamARN,+            ("StreamName" Data..=) Prelude.<$> streamName+          ]+      )++instance Data.ToPath DescribeEdgeConfiguration where+  toPath = Prelude.const "/describeEdgeConfiguration"++instance Data.ToQuery DescribeEdgeConfiguration where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeEdgeConfigurationResponse' smart constructor.+data DescribeEdgeConfigurationResponse = DescribeEdgeConfigurationResponse'+  { -- | The timestamp at which a stream’s edge configuration was first created.+    creationTime :: Prelude.Maybe Data.POSIX,+    -- | A description of the stream\'s edge configuration that will be used to+    -- sync with the Edge Agent IoT Greengrass component. The Edge Agent+    -- component will run on an IoT Hub Device setup at your premise.+    edgeConfig :: Prelude.Maybe EdgeConfig,+    -- | A description of the generated failure status.+    failedStatusDetails :: Prelude.Maybe Prelude.Text,+    -- | The timestamp at which a stream’s edge configuration was last updated.+    lastUpdatedTime :: Prelude.Maybe Data.POSIX,+    -- | The Amazon Resource Name (ARN) of the stream.+    streamARN :: Prelude.Maybe Prelude.Text,+    -- | The name of the stream from which the edge configuration was updated.+    streamName :: Prelude.Maybe Prelude.Text,+    -- | The latest status of the edge configuration update.+    syncStatus :: Prelude.Maybe SyncStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEdgeConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'creationTime', 'describeEdgeConfigurationResponse_creationTime' - The timestamp at which a stream’s edge configuration was first created.+--+-- 'edgeConfig', 'describeEdgeConfigurationResponse_edgeConfig' - A description of the stream\'s edge configuration that will be used to+-- sync with the Edge Agent IoT Greengrass component. The Edge Agent+-- component will run on an IoT Hub Device setup at your premise.+--+-- 'failedStatusDetails', 'describeEdgeConfigurationResponse_failedStatusDetails' - A description of the generated failure status.+--+-- 'lastUpdatedTime', 'describeEdgeConfigurationResponse_lastUpdatedTime' - The timestamp at which a stream’s edge configuration was last updated.+--+-- 'streamARN', 'describeEdgeConfigurationResponse_streamARN' - The Amazon Resource Name (ARN) of the stream.+--+-- 'streamName', 'describeEdgeConfigurationResponse_streamName' - The name of the stream from which the edge configuration was updated.+--+-- 'syncStatus', 'describeEdgeConfigurationResponse_syncStatus' - The latest status of the edge configuration update.+--+-- 'httpStatus', 'describeEdgeConfigurationResponse_httpStatus' - The response's http status code.+newDescribeEdgeConfigurationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeEdgeConfigurationResponse+newDescribeEdgeConfigurationResponse pHttpStatus_ =+  DescribeEdgeConfigurationResponse'+    { creationTime =+        Prelude.Nothing,+      edgeConfig = Prelude.Nothing,+      failedStatusDetails = Prelude.Nothing,+      lastUpdatedTime = Prelude.Nothing,+      streamARN = Prelude.Nothing,+      streamName = Prelude.Nothing,+      syncStatus = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The timestamp at which a stream’s edge configuration was first created.+describeEdgeConfigurationResponse_creationTime :: Lens.Lens' DescribeEdgeConfigurationResponse (Prelude.Maybe Prelude.UTCTime)+describeEdgeConfigurationResponse_creationTime = Lens.lens (\DescribeEdgeConfigurationResponse' {creationTime} -> creationTime) (\s@DescribeEdgeConfigurationResponse' {} a -> s {creationTime = a} :: DescribeEdgeConfigurationResponse) Prelude.. Lens.mapping Data._Time++-- | A description of the stream\'s edge configuration that will be used to+-- sync with the Edge Agent IoT Greengrass component. The Edge Agent+-- component will run on an IoT Hub Device setup at your premise.+describeEdgeConfigurationResponse_edgeConfig :: Lens.Lens' DescribeEdgeConfigurationResponse (Prelude.Maybe EdgeConfig)+describeEdgeConfigurationResponse_edgeConfig = Lens.lens (\DescribeEdgeConfigurationResponse' {edgeConfig} -> edgeConfig) (\s@DescribeEdgeConfigurationResponse' {} a -> s {edgeConfig = a} :: DescribeEdgeConfigurationResponse)++-- | A description of the generated failure status.+describeEdgeConfigurationResponse_failedStatusDetails :: Lens.Lens' DescribeEdgeConfigurationResponse (Prelude.Maybe Prelude.Text)+describeEdgeConfigurationResponse_failedStatusDetails = Lens.lens (\DescribeEdgeConfigurationResponse' {failedStatusDetails} -> failedStatusDetails) (\s@DescribeEdgeConfigurationResponse' {} a -> s {failedStatusDetails = a} :: DescribeEdgeConfigurationResponse)++-- | The timestamp at which a stream’s edge configuration was last updated.+describeEdgeConfigurationResponse_lastUpdatedTime :: Lens.Lens' DescribeEdgeConfigurationResponse (Prelude.Maybe Prelude.UTCTime)+describeEdgeConfigurationResponse_lastUpdatedTime = Lens.lens (\DescribeEdgeConfigurationResponse' {lastUpdatedTime} -> lastUpdatedTime) (\s@DescribeEdgeConfigurationResponse' {} a -> s {lastUpdatedTime = a} :: DescribeEdgeConfigurationResponse) Prelude.. Lens.mapping Data._Time++-- | The Amazon Resource Name (ARN) of the stream.+describeEdgeConfigurationResponse_streamARN :: Lens.Lens' DescribeEdgeConfigurationResponse (Prelude.Maybe Prelude.Text)+describeEdgeConfigurationResponse_streamARN = Lens.lens (\DescribeEdgeConfigurationResponse' {streamARN} -> streamARN) (\s@DescribeEdgeConfigurationResponse' {} a -> s {streamARN = a} :: DescribeEdgeConfigurationResponse)++-- | The name of the stream from which the edge configuration was updated.+describeEdgeConfigurationResponse_streamName :: Lens.Lens' DescribeEdgeConfigurationResponse (Prelude.Maybe Prelude.Text)+describeEdgeConfigurationResponse_streamName = Lens.lens (\DescribeEdgeConfigurationResponse' {streamName} -> streamName) (\s@DescribeEdgeConfigurationResponse' {} a -> s {streamName = a} :: DescribeEdgeConfigurationResponse)++-- | The latest status of the edge configuration update.+describeEdgeConfigurationResponse_syncStatus :: Lens.Lens' DescribeEdgeConfigurationResponse (Prelude.Maybe SyncStatus)+describeEdgeConfigurationResponse_syncStatus = Lens.lens (\DescribeEdgeConfigurationResponse' {syncStatus} -> syncStatus) (\s@DescribeEdgeConfigurationResponse' {} a -> s {syncStatus = a} :: DescribeEdgeConfigurationResponse)++-- | The response's http status code.+describeEdgeConfigurationResponse_httpStatus :: Lens.Lens' DescribeEdgeConfigurationResponse Prelude.Int+describeEdgeConfigurationResponse_httpStatus = Lens.lens (\DescribeEdgeConfigurationResponse' {httpStatus} -> httpStatus) (\s@DescribeEdgeConfigurationResponse' {} a -> s {httpStatus = a} :: DescribeEdgeConfigurationResponse)++instance+  Prelude.NFData+    DescribeEdgeConfigurationResponse+  where+  rnf DescribeEdgeConfigurationResponse' {..} =+    Prelude.rnf creationTime+      `Prelude.seq` Prelude.rnf edgeConfig+      `Prelude.seq` Prelude.rnf failedStatusDetails+      `Prelude.seq` Prelude.rnf lastUpdatedTime+      `Prelude.seq` Prelude.rnf streamARN+      `Prelude.seq` Prelude.rnf streamName+      `Prelude.seq` Prelude.rnf syncStatus+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,221 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.DescribeImageGenerationConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the @ImageGenerationConfiguration@ for a given Kinesis video+-- stream.+module Amazonka.KinesisVideo.DescribeImageGenerationConfiguration+  ( -- * Creating a Request+    DescribeImageGenerationConfiguration (..),+    newDescribeImageGenerationConfiguration,++    -- * Request Lenses+    describeImageGenerationConfiguration_streamARN,+    describeImageGenerationConfiguration_streamName,++    -- * Destructuring the Response+    DescribeImageGenerationConfigurationResponse (..),+    newDescribeImageGenerationConfigurationResponse,++    -- * Response Lenses+    describeImageGenerationConfigurationResponse_imageGenerationConfiguration,+    describeImageGenerationConfigurationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeImageGenerationConfiguration' smart constructor.+data DescribeImageGenerationConfiguration = DescribeImageGenerationConfiguration'+  { -- | The Amazon Resource Name (ARN) of the Kinesis video stream from which to+    -- retrieve the image generation configuration. You must specify either the+    -- @StreamName@ or the @StreamARN@.+    streamARN :: Prelude.Maybe Prelude.Text,+    -- | The name of the stream from which to retrieve the image generation+    -- configuration. You must specify either the @StreamName@ or the+    -- @StreamARN@.+    streamName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeImageGenerationConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'streamARN', 'describeImageGenerationConfiguration_streamARN' - The Amazon Resource Name (ARN) of the Kinesis video stream from which to+-- retrieve the image generation configuration. You must specify either the+-- @StreamName@ or the @StreamARN@.+--+-- 'streamName', 'describeImageGenerationConfiguration_streamName' - The name of the stream from which to retrieve the image generation+-- configuration. You must specify either the @StreamName@ or the+-- @StreamARN@.+newDescribeImageGenerationConfiguration ::+  DescribeImageGenerationConfiguration+newDescribeImageGenerationConfiguration =+  DescribeImageGenerationConfiguration'+    { streamARN =+        Prelude.Nothing,+      streamName = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the Kinesis video stream from which to+-- retrieve the image generation configuration. You must specify either the+-- @StreamName@ or the @StreamARN@.+describeImageGenerationConfiguration_streamARN :: Lens.Lens' DescribeImageGenerationConfiguration (Prelude.Maybe Prelude.Text)+describeImageGenerationConfiguration_streamARN = Lens.lens (\DescribeImageGenerationConfiguration' {streamARN} -> streamARN) (\s@DescribeImageGenerationConfiguration' {} a -> s {streamARN = a} :: DescribeImageGenerationConfiguration)++-- | The name of the stream from which to retrieve the image generation+-- configuration. You must specify either the @StreamName@ or the+-- @StreamARN@.+describeImageGenerationConfiguration_streamName :: Lens.Lens' DescribeImageGenerationConfiguration (Prelude.Maybe Prelude.Text)+describeImageGenerationConfiguration_streamName = Lens.lens (\DescribeImageGenerationConfiguration' {streamName} -> streamName) (\s@DescribeImageGenerationConfiguration' {} a -> s {streamName = a} :: DescribeImageGenerationConfiguration)++instance+  Core.AWSRequest+    DescribeImageGenerationConfiguration+  where+  type+    AWSResponse DescribeImageGenerationConfiguration =+      DescribeImageGenerationConfigurationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeImageGenerationConfigurationResponse'+            Prelude.<$> (x Data..?> "ImageGenerationConfiguration")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeImageGenerationConfiguration+  where+  hashWithSalt+    _salt+    DescribeImageGenerationConfiguration' {..} =+      _salt+        `Prelude.hashWithSalt` streamARN+        `Prelude.hashWithSalt` streamName++instance+  Prelude.NFData+    DescribeImageGenerationConfiguration+  where+  rnf DescribeImageGenerationConfiguration' {..} =+    Prelude.rnf streamARN+      `Prelude.seq` Prelude.rnf streamName++instance+  Data.ToHeaders+    DescribeImageGenerationConfiguration+  where+  toHeaders = Prelude.const Prelude.mempty++instance+  Data.ToJSON+    DescribeImageGenerationConfiguration+  where+  toJSON DescribeImageGenerationConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("StreamARN" Data..=) Prelude.<$> streamARN,+            ("StreamName" Data..=) Prelude.<$> streamName+          ]+      )++instance+  Data.ToPath+    DescribeImageGenerationConfiguration+  where+  toPath =+    Prelude.const+      "/describeImageGenerationConfiguration"++instance+  Data.ToQuery+    DescribeImageGenerationConfiguration+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeImageGenerationConfigurationResponse' smart constructor.+data DescribeImageGenerationConfigurationResponse = DescribeImageGenerationConfigurationResponse'+  { -- | The structure that contains the information required for the Kinesis+    -- video stream (KVS) images delivery. If this structure is null, the+    -- configuration will be deleted from the stream.+    imageGenerationConfiguration :: Prelude.Maybe ImageGenerationConfiguration,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeImageGenerationConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'imageGenerationConfiguration', 'describeImageGenerationConfigurationResponse_imageGenerationConfiguration' - The structure that contains the information required for the Kinesis+-- video stream (KVS) images delivery. If this structure is null, the+-- configuration will be deleted from the stream.+--+-- 'httpStatus', 'describeImageGenerationConfigurationResponse_httpStatus' - The response's http status code.+newDescribeImageGenerationConfigurationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeImageGenerationConfigurationResponse+newDescribeImageGenerationConfigurationResponse+  pHttpStatus_ =+    DescribeImageGenerationConfigurationResponse'+      { imageGenerationConfiguration =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | The structure that contains the information required for the Kinesis+-- video stream (KVS) images delivery. If this structure is null, the+-- configuration will be deleted from the stream.+describeImageGenerationConfigurationResponse_imageGenerationConfiguration :: Lens.Lens' DescribeImageGenerationConfigurationResponse (Prelude.Maybe ImageGenerationConfiguration)+describeImageGenerationConfigurationResponse_imageGenerationConfiguration = Lens.lens (\DescribeImageGenerationConfigurationResponse' {imageGenerationConfiguration} -> imageGenerationConfiguration) (\s@DescribeImageGenerationConfigurationResponse' {} a -> s {imageGenerationConfiguration = a} :: DescribeImageGenerationConfigurationResponse)++-- | The response's http status code.+describeImageGenerationConfigurationResponse_httpStatus :: Lens.Lens' DescribeImageGenerationConfigurationResponse Prelude.Int+describeImageGenerationConfigurationResponse_httpStatus = Lens.lens (\DescribeImageGenerationConfigurationResponse' {httpStatus} -> httpStatus) (\s@DescribeImageGenerationConfigurationResponse' {} a -> s {httpStatus = a} :: DescribeImageGenerationConfigurationResponse)++instance+  Prelude.NFData+    DescribeImageGenerationConfigurationResponse+  where+  rnf DescribeImageGenerationConfigurationResponse' {..} =+    Prelude.rnf imageGenerationConfiguration+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,283 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.DescribeMappedResourceConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the most current information about the stream. Either streamName+-- or streamARN should be provided in the input.+--+-- Returns the most current information about the stream. The @streamName@+-- or @streamARN@ should be provided in the input.+--+-- This operation returns paginated results.+module Amazonka.KinesisVideo.DescribeMappedResourceConfiguration+  ( -- * Creating a Request+    DescribeMappedResourceConfiguration (..),+    newDescribeMappedResourceConfiguration,++    -- * Request Lenses+    describeMappedResourceConfiguration_maxResults,+    describeMappedResourceConfiguration_nextToken,+    describeMappedResourceConfiguration_streamARN,+    describeMappedResourceConfiguration_streamName,++    -- * Destructuring the Response+    DescribeMappedResourceConfigurationResponse (..),+    newDescribeMappedResourceConfigurationResponse,++    -- * Response Lenses+    describeMappedResourceConfigurationResponse_mappedResourceConfigurationList,+    describeMappedResourceConfigurationResponse_nextToken,+    describeMappedResourceConfigurationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeMappedResourceConfiguration' smart constructor.+data DescribeMappedResourceConfiguration = DescribeMappedResourceConfiguration'+  { -- | The maximum number of results to return in the response.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The token to provide in your next request, to get another batch of+    -- results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the stream.+    streamARN :: Prelude.Maybe Prelude.Text,+    -- | The name of the stream.+    streamName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeMappedResourceConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'describeMappedResourceConfiguration_maxResults' - The maximum number of results to return in the response.+--+-- 'nextToken', 'describeMappedResourceConfiguration_nextToken' - The token to provide in your next request, to get another batch of+-- results.+--+-- 'streamARN', 'describeMappedResourceConfiguration_streamARN' - The Amazon Resource Name (ARN) of the stream.+--+-- 'streamName', 'describeMappedResourceConfiguration_streamName' - The name of the stream.+newDescribeMappedResourceConfiguration ::+  DescribeMappedResourceConfiguration+newDescribeMappedResourceConfiguration =+  DescribeMappedResourceConfiguration'+    { maxResults =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      streamARN = Prelude.Nothing,+      streamName = Prelude.Nothing+    }++-- | The maximum number of results to return in the response.+describeMappedResourceConfiguration_maxResults :: Lens.Lens' DescribeMappedResourceConfiguration (Prelude.Maybe Prelude.Natural)+describeMappedResourceConfiguration_maxResults = Lens.lens (\DescribeMappedResourceConfiguration' {maxResults} -> maxResults) (\s@DescribeMappedResourceConfiguration' {} a -> s {maxResults = a} :: DescribeMappedResourceConfiguration)++-- | The token to provide in your next request, to get another batch of+-- results.+describeMappedResourceConfiguration_nextToken :: Lens.Lens' DescribeMappedResourceConfiguration (Prelude.Maybe Prelude.Text)+describeMappedResourceConfiguration_nextToken = Lens.lens (\DescribeMappedResourceConfiguration' {nextToken} -> nextToken) (\s@DescribeMappedResourceConfiguration' {} a -> s {nextToken = a} :: DescribeMappedResourceConfiguration)++-- | The Amazon Resource Name (ARN) of the stream.+describeMappedResourceConfiguration_streamARN :: Lens.Lens' DescribeMappedResourceConfiguration (Prelude.Maybe Prelude.Text)+describeMappedResourceConfiguration_streamARN = Lens.lens (\DescribeMappedResourceConfiguration' {streamARN} -> streamARN) (\s@DescribeMappedResourceConfiguration' {} a -> s {streamARN = a} :: DescribeMappedResourceConfiguration)++-- | The name of the stream.+describeMappedResourceConfiguration_streamName :: Lens.Lens' DescribeMappedResourceConfiguration (Prelude.Maybe Prelude.Text)+describeMappedResourceConfiguration_streamName = Lens.lens (\DescribeMappedResourceConfiguration' {streamName} -> streamName) (\s@DescribeMappedResourceConfiguration' {} a -> s {streamName = a} :: DescribeMappedResourceConfiguration)++instance+  Core.AWSPager+    DescribeMappedResourceConfiguration+  where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeMappedResourceConfigurationResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeMappedResourceConfigurationResponse_mappedResourceConfigurationList+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeMappedResourceConfiguration_nextToken+          Lens..~ rs+          Lens.^? describeMappedResourceConfigurationResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    DescribeMappedResourceConfiguration+  where+  type+    AWSResponse DescribeMappedResourceConfiguration =+      DescribeMappedResourceConfigurationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeMappedResourceConfigurationResponse'+            Prelude.<$> ( x+                            Data..?> "MappedResourceConfigurationList"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeMappedResourceConfiguration+  where+  hashWithSalt+    _salt+    DescribeMappedResourceConfiguration' {..} =+      _salt+        `Prelude.hashWithSalt` maxResults+        `Prelude.hashWithSalt` nextToken+        `Prelude.hashWithSalt` streamARN+        `Prelude.hashWithSalt` streamName++instance+  Prelude.NFData+    DescribeMappedResourceConfiguration+  where+  rnf DescribeMappedResourceConfiguration' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf streamARN+      `Prelude.seq` Prelude.rnf streamName++instance+  Data.ToHeaders+    DescribeMappedResourceConfiguration+  where+  toHeaders = Prelude.const Prelude.mempty++instance+  Data.ToJSON+    DescribeMappedResourceConfiguration+  where+  toJSON DescribeMappedResourceConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("StreamARN" Data..=) Prelude.<$> streamARN,+            ("StreamName" Data..=) Prelude.<$> streamName+          ]+      )++instance+  Data.ToPath+    DescribeMappedResourceConfiguration+  where+  toPath =+    Prelude.const+      "/describeMappedResourceConfiguration"++instance+  Data.ToQuery+    DescribeMappedResourceConfiguration+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeMappedResourceConfigurationResponse' smart constructor.+data DescribeMappedResourceConfigurationResponse = DescribeMappedResourceConfigurationResponse'+  { -- | A structure that encapsulates, or contains, the media storage+    -- configuration properties.+    mappedResourceConfigurationList :: Prelude.Maybe [MappedResourceConfigurationListItem],+    -- | The token that was used in the @NextToken@request to fetch the next set+    -- of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeMappedResourceConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'mappedResourceConfigurationList', 'describeMappedResourceConfigurationResponse_mappedResourceConfigurationList' - A structure that encapsulates, or contains, the media storage+-- configuration properties.+--+-- 'nextToken', 'describeMappedResourceConfigurationResponse_nextToken' - The token that was used in the @NextToken@request to fetch the next set+-- of results.+--+-- 'httpStatus', 'describeMappedResourceConfigurationResponse_httpStatus' - The response's http status code.+newDescribeMappedResourceConfigurationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeMappedResourceConfigurationResponse+newDescribeMappedResourceConfigurationResponse+  pHttpStatus_ =+    DescribeMappedResourceConfigurationResponse'+      { mappedResourceConfigurationList =+          Prelude.Nothing,+        nextToken = Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | A structure that encapsulates, or contains, the media storage+-- configuration properties.+describeMappedResourceConfigurationResponse_mappedResourceConfigurationList :: Lens.Lens' DescribeMappedResourceConfigurationResponse (Prelude.Maybe [MappedResourceConfigurationListItem])+describeMappedResourceConfigurationResponse_mappedResourceConfigurationList = Lens.lens (\DescribeMappedResourceConfigurationResponse' {mappedResourceConfigurationList} -> mappedResourceConfigurationList) (\s@DescribeMappedResourceConfigurationResponse' {} a -> s {mappedResourceConfigurationList = a} :: DescribeMappedResourceConfigurationResponse) Prelude.. Lens.mapping Lens.coerced++-- | The token that was used in the @NextToken@request to fetch the next set+-- of results.+describeMappedResourceConfigurationResponse_nextToken :: Lens.Lens' DescribeMappedResourceConfigurationResponse (Prelude.Maybe Prelude.Text)+describeMappedResourceConfigurationResponse_nextToken = Lens.lens (\DescribeMappedResourceConfigurationResponse' {nextToken} -> nextToken) (\s@DescribeMappedResourceConfigurationResponse' {} a -> s {nextToken = a} :: DescribeMappedResourceConfigurationResponse)++-- | The response's http status code.+describeMappedResourceConfigurationResponse_httpStatus :: Lens.Lens' DescribeMappedResourceConfigurationResponse Prelude.Int+describeMappedResourceConfigurationResponse_httpStatus = Lens.lens (\DescribeMappedResourceConfigurationResponse' {httpStatus} -> httpStatus) (\s@DescribeMappedResourceConfigurationResponse' {} a -> s {httpStatus = a} :: DescribeMappedResourceConfigurationResponse)++instance+  Prelude.NFData+    DescribeMappedResourceConfigurationResponse+  where+  rnf DescribeMappedResourceConfigurationResponse' {..} =+    Prelude.rnf mappedResourceConfigurationList+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,205 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.DescribeMediaStorageConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the most current information about the channel. Specify the+-- @ChannelName@ or @ChannelARN@ in the input.+module Amazonka.KinesisVideo.DescribeMediaStorageConfiguration+  ( -- * Creating a Request+    DescribeMediaStorageConfiguration (..),+    newDescribeMediaStorageConfiguration,++    -- * Request Lenses+    describeMediaStorageConfiguration_channelARN,+    describeMediaStorageConfiguration_channelName,++    -- * Destructuring the Response+    DescribeMediaStorageConfigurationResponse (..),+    newDescribeMediaStorageConfigurationResponse,++    -- * Response Lenses+    describeMediaStorageConfigurationResponse_mediaStorageConfiguration,+    describeMediaStorageConfigurationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeMediaStorageConfiguration' smart constructor.+data DescribeMediaStorageConfiguration = DescribeMediaStorageConfiguration'+  { -- | The Amazon Resource Name (ARN) of the channel.+    channelARN :: Prelude.Maybe Prelude.Text,+    -- | The name of the channel.+    channelName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeMediaStorageConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'channelARN', 'describeMediaStorageConfiguration_channelARN' - The Amazon Resource Name (ARN) of the channel.+--+-- 'channelName', 'describeMediaStorageConfiguration_channelName' - The name of the channel.+newDescribeMediaStorageConfiguration ::+  DescribeMediaStorageConfiguration+newDescribeMediaStorageConfiguration =+  DescribeMediaStorageConfiguration'+    { channelARN =+        Prelude.Nothing,+      channelName = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the channel.+describeMediaStorageConfiguration_channelARN :: Lens.Lens' DescribeMediaStorageConfiguration (Prelude.Maybe Prelude.Text)+describeMediaStorageConfiguration_channelARN = Lens.lens (\DescribeMediaStorageConfiguration' {channelARN} -> channelARN) (\s@DescribeMediaStorageConfiguration' {} a -> s {channelARN = a} :: DescribeMediaStorageConfiguration)++-- | The name of the channel.+describeMediaStorageConfiguration_channelName :: Lens.Lens' DescribeMediaStorageConfiguration (Prelude.Maybe Prelude.Text)+describeMediaStorageConfiguration_channelName = Lens.lens (\DescribeMediaStorageConfiguration' {channelName} -> channelName) (\s@DescribeMediaStorageConfiguration' {} a -> s {channelName = a} :: DescribeMediaStorageConfiguration)++instance+  Core.AWSRequest+    DescribeMediaStorageConfiguration+  where+  type+    AWSResponse DescribeMediaStorageConfiguration =+      DescribeMediaStorageConfigurationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeMediaStorageConfigurationResponse'+            Prelude.<$> (x Data..?> "MediaStorageConfiguration")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeMediaStorageConfiguration+  where+  hashWithSalt+    _salt+    DescribeMediaStorageConfiguration' {..} =+      _salt+        `Prelude.hashWithSalt` channelARN+        `Prelude.hashWithSalt` channelName++instance+  Prelude.NFData+    DescribeMediaStorageConfiguration+  where+  rnf DescribeMediaStorageConfiguration' {..} =+    Prelude.rnf channelARN+      `Prelude.seq` Prelude.rnf channelName++instance+  Data.ToHeaders+    DescribeMediaStorageConfiguration+  where+  toHeaders = Prelude.const Prelude.mempty++instance+  Data.ToJSON+    DescribeMediaStorageConfiguration+  where+  toJSON DescribeMediaStorageConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ChannelARN" Data..=) Prelude.<$> channelARN,+            ("ChannelName" Data..=) Prelude.<$> channelName+          ]+      )++instance+  Data.ToPath+    DescribeMediaStorageConfiguration+  where+  toPath =+    Prelude.const "/describeMediaStorageConfiguration"++instance+  Data.ToQuery+    DescribeMediaStorageConfiguration+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeMediaStorageConfigurationResponse' smart constructor.+data DescribeMediaStorageConfigurationResponse = DescribeMediaStorageConfigurationResponse'+  { -- | A structure that encapsulates, or contains, the media storage+    -- configuration properties.+    mediaStorageConfiguration :: Prelude.Maybe MediaStorageConfiguration,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeMediaStorageConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'mediaStorageConfiguration', 'describeMediaStorageConfigurationResponse_mediaStorageConfiguration' - A structure that encapsulates, or contains, the media storage+-- configuration properties.+--+-- 'httpStatus', 'describeMediaStorageConfigurationResponse_httpStatus' - The response's http status code.+newDescribeMediaStorageConfigurationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeMediaStorageConfigurationResponse+newDescribeMediaStorageConfigurationResponse+  pHttpStatus_ =+    DescribeMediaStorageConfigurationResponse'+      { mediaStorageConfiguration =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | A structure that encapsulates, or contains, the media storage+-- configuration properties.+describeMediaStorageConfigurationResponse_mediaStorageConfiguration :: Lens.Lens' DescribeMediaStorageConfigurationResponse (Prelude.Maybe MediaStorageConfiguration)+describeMediaStorageConfigurationResponse_mediaStorageConfiguration = Lens.lens (\DescribeMediaStorageConfigurationResponse' {mediaStorageConfiguration} -> mediaStorageConfiguration) (\s@DescribeMediaStorageConfigurationResponse' {} a -> s {mediaStorageConfiguration = a} :: DescribeMediaStorageConfigurationResponse)++-- | The response's http status code.+describeMediaStorageConfigurationResponse_httpStatus :: Lens.Lens' DescribeMediaStorageConfigurationResponse Prelude.Int+describeMediaStorageConfigurationResponse_httpStatus = Lens.lens (\DescribeMediaStorageConfigurationResponse' {httpStatus} -> httpStatus) (\s@DescribeMediaStorageConfigurationResponse' {} a -> s {httpStatus = a} :: DescribeMediaStorageConfigurationResponse)++instance+  Prelude.NFData+    DescribeMediaStorageConfigurationResponse+  where+  rnf DescribeMediaStorageConfigurationResponse' {..} =+    Prelude.rnf mediaStorageConfiguration+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,219 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.DescribeNotificationConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the @NotificationConfiguration@ for a given Kinesis video stream.+module Amazonka.KinesisVideo.DescribeNotificationConfiguration+  ( -- * Creating a Request+    DescribeNotificationConfiguration (..),+    newDescribeNotificationConfiguration,++    -- * Request Lenses+    describeNotificationConfiguration_streamARN,+    describeNotificationConfiguration_streamName,++    -- * Destructuring the Response+    DescribeNotificationConfigurationResponse (..),+    newDescribeNotificationConfigurationResponse,++    -- * Response Lenses+    describeNotificationConfigurationResponse_notificationConfiguration,+    describeNotificationConfigurationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeNotificationConfiguration' smart constructor.+data DescribeNotificationConfiguration = DescribeNotificationConfiguration'+  { -- | The Amazon Resource Name (ARN) of the Kinesis video stream from where+    -- you want to retrieve the notification configuration. You must specify+    -- either the @StreamName@ or the StreamARN.+    streamARN :: Prelude.Maybe Prelude.Text,+    -- | The name of the stream from which to retrieve the notification+    -- configuration. You must specify either the @StreamName@ or the+    -- @StreamARN@.+    streamName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeNotificationConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'streamARN', 'describeNotificationConfiguration_streamARN' - The Amazon Resource Name (ARN) of the Kinesis video stream from where+-- you want to retrieve the notification configuration. You must specify+-- either the @StreamName@ or the StreamARN.+--+-- 'streamName', 'describeNotificationConfiguration_streamName' - The name of the stream from which to retrieve the notification+-- configuration. You must specify either the @StreamName@ or the+-- @StreamARN@.+newDescribeNotificationConfiguration ::+  DescribeNotificationConfiguration+newDescribeNotificationConfiguration =+  DescribeNotificationConfiguration'+    { streamARN =+        Prelude.Nothing,+      streamName = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the Kinesis video stream from where+-- you want to retrieve the notification configuration. You must specify+-- either the @StreamName@ or the StreamARN.+describeNotificationConfiguration_streamARN :: Lens.Lens' DescribeNotificationConfiguration (Prelude.Maybe Prelude.Text)+describeNotificationConfiguration_streamARN = Lens.lens (\DescribeNotificationConfiguration' {streamARN} -> streamARN) (\s@DescribeNotificationConfiguration' {} a -> s {streamARN = a} :: DescribeNotificationConfiguration)++-- | The name of the stream from which to retrieve the notification+-- configuration. You must specify either the @StreamName@ or the+-- @StreamARN@.+describeNotificationConfiguration_streamName :: Lens.Lens' DescribeNotificationConfiguration (Prelude.Maybe Prelude.Text)+describeNotificationConfiguration_streamName = Lens.lens (\DescribeNotificationConfiguration' {streamName} -> streamName) (\s@DescribeNotificationConfiguration' {} a -> s {streamName = a} :: DescribeNotificationConfiguration)++instance+  Core.AWSRequest+    DescribeNotificationConfiguration+  where+  type+    AWSResponse DescribeNotificationConfiguration =+      DescribeNotificationConfigurationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeNotificationConfigurationResponse'+            Prelude.<$> (x Data..?> "NotificationConfiguration")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeNotificationConfiguration+  where+  hashWithSalt+    _salt+    DescribeNotificationConfiguration' {..} =+      _salt+        `Prelude.hashWithSalt` streamARN+        `Prelude.hashWithSalt` streamName++instance+  Prelude.NFData+    DescribeNotificationConfiguration+  where+  rnf DescribeNotificationConfiguration' {..} =+    Prelude.rnf streamARN+      `Prelude.seq` Prelude.rnf streamName++instance+  Data.ToHeaders+    DescribeNotificationConfiguration+  where+  toHeaders = Prelude.const Prelude.mempty++instance+  Data.ToJSON+    DescribeNotificationConfiguration+  where+  toJSON DescribeNotificationConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("StreamARN" Data..=) Prelude.<$> streamARN,+            ("StreamName" Data..=) Prelude.<$> streamName+          ]+      )++instance+  Data.ToPath+    DescribeNotificationConfiguration+  where+  toPath =+    Prelude.const "/describeNotificationConfiguration"++instance+  Data.ToQuery+    DescribeNotificationConfiguration+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeNotificationConfigurationResponse' smart constructor.+data DescribeNotificationConfigurationResponse = DescribeNotificationConfigurationResponse'+  { -- | The structure that contains the information required for notifications.+    -- If the structure is null, the configuration will be deleted from the+    -- stream.+    notificationConfiguration :: Prelude.Maybe NotificationConfiguration,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeNotificationConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'notificationConfiguration', 'describeNotificationConfigurationResponse_notificationConfiguration' - The structure that contains the information required for notifications.+-- If the structure is null, the configuration will be deleted from the+-- stream.+--+-- 'httpStatus', 'describeNotificationConfigurationResponse_httpStatus' - The response's http status code.+newDescribeNotificationConfigurationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeNotificationConfigurationResponse+newDescribeNotificationConfigurationResponse+  pHttpStatus_ =+    DescribeNotificationConfigurationResponse'+      { notificationConfiguration =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | The structure that contains the information required for notifications.+-- If the structure is null, the configuration will be deleted from the+-- stream.+describeNotificationConfigurationResponse_notificationConfiguration :: Lens.Lens' DescribeNotificationConfigurationResponse (Prelude.Maybe NotificationConfiguration)+describeNotificationConfigurationResponse_notificationConfiguration = Lens.lens (\DescribeNotificationConfigurationResponse' {notificationConfiguration} -> notificationConfiguration) (\s@DescribeNotificationConfigurationResponse' {} a -> s {notificationConfiguration = a} :: DescribeNotificationConfigurationResponse)++-- | The response's http status code.+describeNotificationConfigurationResponse_httpStatus :: Lens.Lens' DescribeNotificationConfigurationResponse Prelude.Int+describeNotificationConfigurationResponse_httpStatus = Lens.lens (\DescribeNotificationConfigurationResponse' {httpStatus} -> httpStatus) (\s@DescribeNotificationConfigurationResponse' {} a -> s {httpStatus = a} :: DescribeNotificationConfigurationResponse)++instance+  Prelude.NFData+    DescribeNotificationConfigurationResponse+  where+  rnf DescribeNotificationConfigurationResponse' {..} =+    Prelude.rnf notificationConfiguration+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,181 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.DescribeSignalingChannel+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the most current information about the signaling channel. You+-- must specify either the name or the Amazon Resource Name (ARN) of the+-- channel that you want to describe.+module Amazonka.KinesisVideo.DescribeSignalingChannel+  ( -- * Creating a Request+    DescribeSignalingChannel (..),+    newDescribeSignalingChannel,++    -- * Request Lenses+    describeSignalingChannel_channelARN,+    describeSignalingChannel_channelName,++    -- * Destructuring the Response+    DescribeSignalingChannelResponse (..),+    newDescribeSignalingChannelResponse,++    -- * Response Lenses+    describeSignalingChannelResponse_channelInfo,+    describeSignalingChannelResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeSignalingChannel' smart constructor.+data DescribeSignalingChannel = DescribeSignalingChannel'+  { -- | The ARN of the signaling channel that you want to describe.+    channelARN :: Prelude.Maybe Prelude.Text,+    -- | The name of the signaling channel that you want to describe.+    channelName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSignalingChannel' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'channelARN', 'describeSignalingChannel_channelARN' - The ARN of the signaling channel that you want to describe.+--+-- 'channelName', 'describeSignalingChannel_channelName' - The name of the signaling channel that you want to describe.+newDescribeSignalingChannel ::+  DescribeSignalingChannel+newDescribeSignalingChannel =+  DescribeSignalingChannel'+    { channelARN =+        Prelude.Nothing,+      channelName = Prelude.Nothing+    }++-- | The ARN of the signaling channel that you want to describe.+describeSignalingChannel_channelARN :: Lens.Lens' DescribeSignalingChannel (Prelude.Maybe Prelude.Text)+describeSignalingChannel_channelARN = Lens.lens (\DescribeSignalingChannel' {channelARN} -> channelARN) (\s@DescribeSignalingChannel' {} a -> s {channelARN = a} :: DescribeSignalingChannel)++-- | The name of the signaling channel that you want to describe.+describeSignalingChannel_channelName :: Lens.Lens' DescribeSignalingChannel (Prelude.Maybe Prelude.Text)+describeSignalingChannel_channelName = Lens.lens (\DescribeSignalingChannel' {channelName} -> channelName) (\s@DescribeSignalingChannel' {} a -> s {channelName = a} :: DescribeSignalingChannel)++instance Core.AWSRequest DescribeSignalingChannel where+  type+    AWSResponse DescribeSignalingChannel =+      DescribeSignalingChannelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeSignalingChannelResponse'+            Prelude.<$> (x Data..?> "ChannelInfo")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeSignalingChannel where+  hashWithSalt _salt DescribeSignalingChannel' {..} =+    _salt+      `Prelude.hashWithSalt` channelARN+      `Prelude.hashWithSalt` channelName++instance Prelude.NFData DescribeSignalingChannel where+  rnf DescribeSignalingChannel' {..} =+    Prelude.rnf channelARN+      `Prelude.seq` Prelude.rnf channelName++instance Data.ToHeaders DescribeSignalingChannel where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON DescribeSignalingChannel where+  toJSON DescribeSignalingChannel' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ChannelARN" Data..=) Prelude.<$> channelARN,+            ("ChannelName" Data..=) Prelude.<$> channelName+          ]+      )++instance Data.ToPath DescribeSignalingChannel where+  toPath = Prelude.const "/describeSignalingChannel"++instance Data.ToQuery DescribeSignalingChannel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeSignalingChannelResponse' smart constructor.+data DescribeSignalingChannelResponse = DescribeSignalingChannelResponse'+  { -- | A structure that encapsulates the specified signaling channel\'s+    -- metadata and properties.+    channelInfo :: Prelude.Maybe ChannelInfo,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSignalingChannelResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'channelInfo', 'describeSignalingChannelResponse_channelInfo' - A structure that encapsulates the specified signaling channel\'s+-- metadata and properties.+--+-- 'httpStatus', 'describeSignalingChannelResponse_httpStatus' - The response's http status code.+newDescribeSignalingChannelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeSignalingChannelResponse+newDescribeSignalingChannelResponse pHttpStatus_ =+  DescribeSignalingChannelResponse'+    { channelInfo =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A structure that encapsulates the specified signaling channel\'s+-- metadata and properties.+describeSignalingChannelResponse_channelInfo :: Lens.Lens' DescribeSignalingChannelResponse (Prelude.Maybe ChannelInfo)+describeSignalingChannelResponse_channelInfo = Lens.lens (\DescribeSignalingChannelResponse' {channelInfo} -> channelInfo) (\s@DescribeSignalingChannelResponse' {} a -> s {channelInfo = a} :: DescribeSignalingChannelResponse)++-- | The response's http status code.+describeSignalingChannelResponse_httpStatus :: Lens.Lens' DescribeSignalingChannelResponse Prelude.Int+describeSignalingChannelResponse_httpStatus = Lens.lens (\DescribeSignalingChannelResponse' {httpStatus} -> httpStatus) (\s@DescribeSignalingChannelResponse' {} a -> s {httpStatus = a} :: DescribeSignalingChannelResponse)++instance+  Prelude.NFData+    DescribeSignalingChannelResponse+  where+  rnf DescribeSignalingChannelResponse' {..} =+    Prelude.rnf channelInfo+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,173 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.DescribeStream+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the most current information about the specified stream. You+-- must specify either the @StreamName@ or the @StreamARN@.+module Amazonka.KinesisVideo.DescribeStream+  ( -- * Creating a Request+    DescribeStream (..),+    newDescribeStream,++    -- * Request Lenses+    describeStream_streamARN,+    describeStream_streamName,++    -- * Destructuring the Response+    DescribeStreamResponse (..),+    newDescribeStreamResponse,++    -- * Response Lenses+    describeStreamResponse_streamInfo,+    describeStreamResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeStream' smart constructor.+data DescribeStream = DescribeStream'+  { -- | The Amazon Resource Name (ARN) of the stream.+    streamARN :: Prelude.Maybe Prelude.Text,+    -- | The name of the stream.+    streamName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeStream' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'streamARN', 'describeStream_streamARN' - The Amazon Resource Name (ARN) of the stream.+--+-- 'streamName', 'describeStream_streamName' - The name of the stream.+newDescribeStream ::+  DescribeStream+newDescribeStream =+  DescribeStream'+    { streamARN = Prelude.Nothing,+      streamName = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the stream.+describeStream_streamARN :: Lens.Lens' DescribeStream (Prelude.Maybe Prelude.Text)+describeStream_streamARN = Lens.lens (\DescribeStream' {streamARN} -> streamARN) (\s@DescribeStream' {} a -> s {streamARN = a} :: DescribeStream)++-- | The name of the stream.+describeStream_streamName :: Lens.Lens' DescribeStream (Prelude.Maybe Prelude.Text)+describeStream_streamName = Lens.lens (\DescribeStream' {streamName} -> streamName) (\s@DescribeStream' {} a -> s {streamName = a} :: DescribeStream)++instance Core.AWSRequest DescribeStream where+  type+    AWSResponse DescribeStream =+      DescribeStreamResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeStreamResponse'+            Prelude.<$> (x Data..?> "StreamInfo")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeStream where+  hashWithSalt _salt DescribeStream' {..} =+    _salt+      `Prelude.hashWithSalt` streamARN+      `Prelude.hashWithSalt` streamName++instance Prelude.NFData DescribeStream where+  rnf DescribeStream' {..} =+    Prelude.rnf streamARN+      `Prelude.seq` Prelude.rnf streamName++instance Data.ToHeaders DescribeStream where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON DescribeStream where+  toJSON DescribeStream' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("StreamARN" Data..=) Prelude.<$> streamARN,+            ("StreamName" Data..=) Prelude.<$> streamName+          ]+      )++instance Data.ToPath DescribeStream where+  toPath = Prelude.const "/describeStream"++instance Data.ToQuery DescribeStream where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeStreamResponse' smart constructor.+data DescribeStreamResponse = DescribeStreamResponse'+  { -- | An object that describes the stream.+    streamInfo :: Prelude.Maybe StreamInfo,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeStreamResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'streamInfo', 'describeStreamResponse_streamInfo' - An object that describes the stream.+--+-- 'httpStatus', 'describeStreamResponse_httpStatus' - The response's http status code.+newDescribeStreamResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeStreamResponse+newDescribeStreamResponse pHttpStatus_ =+  DescribeStreamResponse'+    { streamInfo =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that describes the stream.+describeStreamResponse_streamInfo :: Lens.Lens' DescribeStreamResponse (Prelude.Maybe StreamInfo)+describeStreamResponse_streamInfo = Lens.lens (\DescribeStreamResponse' {streamInfo} -> streamInfo) (\s@DescribeStreamResponse' {} a -> s {streamInfo = a} :: DescribeStreamResponse)++-- | The response's http status code.+describeStreamResponse_httpStatus :: Lens.Lens' DescribeStreamResponse Prelude.Int+describeStreamResponse_httpStatus = Lens.lens (\DescribeStreamResponse' {httpStatus} -> httpStatus) (\s@DescribeStreamResponse' {} a -> s {httpStatus = a} :: DescribeStreamResponse)++instance Prelude.NFData DescribeStreamResponse where+  rnf DescribeStreamResponse' {..} =+    Prelude.rnf streamInfo+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,208 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.GetDataEndpoint+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets an endpoint for a specified stream for either reading or writing.+-- Use this endpoint in your application to read from the specified stream+-- (using the @GetMedia@ or @GetMediaForFragmentList@ operations) or write+-- to it (using the @PutMedia@ operation).+--+-- The returned endpoint does not have the API name appended. The client+-- needs to add the API name to the returned endpoint.+--+-- In the request, specify the stream either by @StreamName@ or+-- @StreamARN@.+module Amazonka.KinesisVideo.GetDataEndpoint+  ( -- * Creating a Request+    GetDataEndpoint (..),+    newGetDataEndpoint,++    -- * Request Lenses+    getDataEndpoint_streamARN,+    getDataEndpoint_streamName,+    getDataEndpoint_aPIName,++    -- * Destructuring the Response+    GetDataEndpointResponse (..),+    newGetDataEndpointResponse,++    -- * Response Lenses+    getDataEndpointResponse_dataEndpoint,+    getDataEndpointResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetDataEndpoint' smart constructor.+data GetDataEndpoint = GetDataEndpoint'+  { -- | The Amazon Resource Name (ARN) of the stream that you want to get the+    -- endpoint for. You must specify either this parameter or a @StreamName@+    -- in the request.+    streamARN :: Prelude.Maybe Prelude.Text,+    -- | The name of the stream that you want to get the endpoint for. You must+    -- specify either this parameter or a @StreamARN@ in the request.+    streamName :: Prelude.Maybe Prelude.Text,+    -- | The name of the API action for which to get an endpoint.+    aPIName :: APIName+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetDataEndpoint' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'streamARN', 'getDataEndpoint_streamARN' - The Amazon Resource Name (ARN) of the stream that you want to get the+-- endpoint for. You must specify either this parameter or a @StreamName@+-- in the request.+--+-- 'streamName', 'getDataEndpoint_streamName' - The name of the stream that you want to get the endpoint for. You must+-- specify either this parameter or a @StreamARN@ in the request.+--+-- 'aPIName', 'getDataEndpoint_aPIName' - The name of the API action for which to get an endpoint.+newGetDataEndpoint ::+  -- | 'aPIName'+  APIName ->+  GetDataEndpoint+newGetDataEndpoint pAPIName_ =+  GetDataEndpoint'+    { streamARN = Prelude.Nothing,+      streamName = Prelude.Nothing,+      aPIName = pAPIName_+    }++-- | The Amazon Resource Name (ARN) of the stream that you want to get the+-- endpoint for. You must specify either this parameter or a @StreamName@+-- in the request.+getDataEndpoint_streamARN :: Lens.Lens' GetDataEndpoint (Prelude.Maybe Prelude.Text)+getDataEndpoint_streamARN = Lens.lens (\GetDataEndpoint' {streamARN} -> streamARN) (\s@GetDataEndpoint' {} a -> s {streamARN = a} :: GetDataEndpoint)++-- | The name of the stream that you want to get the endpoint for. You must+-- specify either this parameter or a @StreamARN@ in the request.+getDataEndpoint_streamName :: Lens.Lens' GetDataEndpoint (Prelude.Maybe Prelude.Text)+getDataEndpoint_streamName = Lens.lens (\GetDataEndpoint' {streamName} -> streamName) (\s@GetDataEndpoint' {} a -> s {streamName = a} :: GetDataEndpoint)++-- | The name of the API action for which to get an endpoint.+getDataEndpoint_aPIName :: Lens.Lens' GetDataEndpoint APIName+getDataEndpoint_aPIName = Lens.lens (\GetDataEndpoint' {aPIName} -> aPIName) (\s@GetDataEndpoint' {} a -> s {aPIName = a} :: GetDataEndpoint)++instance Core.AWSRequest GetDataEndpoint where+  type+    AWSResponse GetDataEndpoint =+      GetDataEndpointResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetDataEndpointResponse'+            Prelude.<$> (x Data..?> "DataEndpoint")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetDataEndpoint where+  hashWithSalt _salt GetDataEndpoint' {..} =+    _salt+      `Prelude.hashWithSalt` streamARN+      `Prelude.hashWithSalt` streamName+      `Prelude.hashWithSalt` aPIName++instance Prelude.NFData GetDataEndpoint where+  rnf GetDataEndpoint' {..} =+    Prelude.rnf streamARN+      `Prelude.seq` Prelude.rnf streamName+      `Prelude.seq` Prelude.rnf aPIName++instance Data.ToHeaders GetDataEndpoint where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON GetDataEndpoint where+  toJSON GetDataEndpoint' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("StreamARN" Data..=) Prelude.<$> streamARN,+            ("StreamName" Data..=) Prelude.<$> streamName,+            Prelude.Just ("APIName" Data..= aPIName)+          ]+      )++instance Data.ToPath GetDataEndpoint where+  toPath = Prelude.const "/getDataEndpoint"++instance Data.ToQuery GetDataEndpoint where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetDataEndpointResponse' smart constructor.+data GetDataEndpointResponse = GetDataEndpointResponse'+  { -- | The endpoint value. To read data from the stream or to write data to it,+    -- specify this endpoint in your application.+    dataEndpoint :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetDataEndpointResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dataEndpoint', 'getDataEndpointResponse_dataEndpoint' - The endpoint value. To read data from the stream or to write data to it,+-- specify this endpoint in your application.+--+-- 'httpStatus', 'getDataEndpointResponse_httpStatus' - The response's http status code.+newGetDataEndpointResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetDataEndpointResponse+newGetDataEndpointResponse pHttpStatus_ =+  GetDataEndpointResponse'+    { dataEndpoint =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The endpoint value. To read data from the stream or to write data to it,+-- specify this endpoint in your application.+getDataEndpointResponse_dataEndpoint :: Lens.Lens' GetDataEndpointResponse (Prelude.Maybe Prelude.Text)+getDataEndpointResponse_dataEndpoint = Lens.lens (\GetDataEndpointResponse' {dataEndpoint} -> dataEndpoint) (\s@GetDataEndpointResponse' {} a -> s {dataEndpoint = a} :: GetDataEndpointResponse)++-- | The response's http status code.+getDataEndpointResponse_httpStatus :: Lens.Lens' GetDataEndpointResponse Prelude.Int+getDataEndpointResponse_httpStatus = Lens.lens (\GetDataEndpointResponse' {httpStatus} -> httpStatus) (\s@GetDataEndpointResponse' {} a -> s {httpStatus = a} :: GetDataEndpointResponse)++instance Prelude.NFData GetDataEndpointResponse where+  rnf GetDataEndpointResponse' {..} =+    Prelude.rnf dataEndpoint+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,203 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.GetSignalingChannelEndpoint+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides an endpoint for the specified signaling channel to send and+-- receive messages. This API uses the+-- @SingleMasterChannelEndpointConfiguration@ input parameter, which+-- consists of the @Protocols@ and @Role@ properties.+--+-- @Protocols@ is used to determine the communication mechanism. For+-- example, if you specify @WSS@ as the protocol, this API produces a+-- secure websocket endpoint. If you specify @HTTPS@ as the protocol, this+-- API generates an HTTPS endpoint.+--+-- @Role@ determines the messaging permissions. A @MASTER@ role results in+-- this API generating an endpoint that a client can use to communicate+-- with any of the viewers on the channel. A @VIEWER@ role results in this+-- API generating an endpoint that a client can use to communicate only+-- with a @MASTER@.+module Amazonka.KinesisVideo.GetSignalingChannelEndpoint+  ( -- * Creating a Request+    GetSignalingChannelEndpoint (..),+    newGetSignalingChannelEndpoint,++    -- * Request Lenses+    getSignalingChannelEndpoint_singleMasterChannelEndpointConfiguration,+    getSignalingChannelEndpoint_channelARN,++    -- * Destructuring the Response+    GetSignalingChannelEndpointResponse (..),+    newGetSignalingChannelEndpointResponse,++    -- * Response Lenses+    getSignalingChannelEndpointResponse_resourceEndpointList,+    getSignalingChannelEndpointResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetSignalingChannelEndpoint' smart constructor.+data GetSignalingChannelEndpoint = GetSignalingChannelEndpoint'+  { -- | A structure containing the endpoint configuration for the+    -- @SINGLE_MASTER@ channel type.+    singleMasterChannelEndpointConfiguration :: Prelude.Maybe SingleMasterChannelEndpointConfiguration,+    -- | The Amazon Resource Name (ARN) of the signalling channel for which you+    -- want to get an endpoint.+    channelARN :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetSignalingChannelEndpoint' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'singleMasterChannelEndpointConfiguration', 'getSignalingChannelEndpoint_singleMasterChannelEndpointConfiguration' - A structure containing the endpoint configuration for the+-- @SINGLE_MASTER@ channel type.+--+-- 'channelARN', 'getSignalingChannelEndpoint_channelARN' - The Amazon Resource Name (ARN) of the signalling channel for which you+-- want to get an endpoint.+newGetSignalingChannelEndpoint ::+  -- | 'channelARN'+  Prelude.Text ->+  GetSignalingChannelEndpoint+newGetSignalingChannelEndpoint pChannelARN_ =+  GetSignalingChannelEndpoint'+    { singleMasterChannelEndpointConfiguration =+        Prelude.Nothing,+      channelARN = pChannelARN_+    }++-- | A structure containing the endpoint configuration for the+-- @SINGLE_MASTER@ channel type.+getSignalingChannelEndpoint_singleMasterChannelEndpointConfiguration :: Lens.Lens' GetSignalingChannelEndpoint (Prelude.Maybe SingleMasterChannelEndpointConfiguration)+getSignalingChannelEndpoint_singleMasterChannelEndpointConfiguration = Lens.lens (\GetSignalingChannelEndpoint' {singleMasterChannelEndpointConfiguration} -> singleMasterChannelEndpointConfiguration) (\s@GetSignalingChannelEndpoint' {} a -> s {singleMasterChannelEndpointConfiguration = a} :: GetSignalingChannelEndpoint)++-- | The Amazon Resource Name (ARN) of the signalling channel for which you+-- want to get an endpoint.+getSignalingChannelEndpoint_channelARN :: Lens.Lens' GetSignalingChannelEndpoint Prelude.Text+getSignalingChannelEndpoint_channelARN = Lens.lens (\GetSignalingChannelEndpoint' {channelARN} -> channelARN) (\s@GetSignalingChannelEndpoint' {} a -> s {channelARN = a} :: GetSignalingChannelEndpoint)++instance Core.AWSRequest GetSignalingChannelEndpoint where+  type+    AWSResponse GetSignalingChannelEndpoint =+      GetSignalingChannelEndpointResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetSignalingChannelEndpointResponse'+            Prelude.<$> ( x+                            Data..?> "ResourceEndpointList"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetSignalingChannelEndpoint where+  hashWithSalt _salt GetSignalingChannelEndpoint' {..} =+    _salt+      `Prelude.hashWithSalt` singleMasterChannelEndpointConfiguration+      `Prelude.hashWithSalt` channelARN++instance Prelude.NFData GetSignalingChannelEndpoint where+  rnf GetSignalingChannelEndpoint' {..} =+    Prelude.rnf+      singleMasterChannelEndpointConfiguration+      `Prelude.seq` Prelude.rnf channelARN++instance Data.ToHeaders GetSignalingChannelEndpoint where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON GetSignalingChannelEndpoint where+  toJSON GetSignalingChannelEndpoint' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("SingleMasterChannelEndpointConfiguration" Data..=)+              Prelude.<$> singleMasterChannelEndpointConfiguration,+            Prelude.Just ("ChannelARN" Data..= channelARN)+          ]+      )++instance Data.ToPath GetSignalingChannelEndpoint where+  toPath = Prelude.const "/getSignalingChannelEndpoint"++instance Data.ToQuery GetSignalingChannelEndpoint where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetSignalingChannelEndpointResponse' smart constructor.+data GetSignalingChannelEndpointResponse = GetSignalingChannelEndpointResponse'+  { -- | A list of endpoints for the specified signaling channel.+    resourceEndpointList :: Prelude.Maybe [ResourceEndpointListItem],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetSignalingChannelEndpointResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceEndpointList', 'getSignalingChannelEndpointResponse_resourceEndpointList' - A list of endpoints for the specified signaling channel.+--+-- 'httpStatus', 'getSignalingChannelEndpointResponse_httpStatus' - The response's http status code.+newGetSignalingChannelEndpointResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetSignalingChannelEndpointResponse+newGetSignalingChannelEndpointResponse pHttpStatus_ =+  GetSignalingChannelEndpointResponse'+    { resourceEndpointList =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of endpoints for the specified signaling channel.+getSignalingChannelEndpointResponse_resourceEndpointList :: Lens.Lens' GetSignalingChannelEndpointResponse (Prelude.Maybe [ResourceEndpointListItem])+getSignalingChannelEndpointResponse_resourceEndpointList = Lens.lens (\GetSignalingChannelEndpointResponse' {resourceEndpointList} -> resourceEndpointList) (\s@GetSignalingChannelEndpointResponse' {} a -> s {resourceEndpointList = a} :: GetSignalingChannelEndpointResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+getSignalingChannelEndpointResponse_httpStatus :: Lens.Lens' GetSignalingChannelEndpointResponse Prelude.Int+getSignalingChannelEndpointResponse_httpStatus = Lens.lens (\GetSignalingChannelEndpointResponse' {httpStatus} -> httpStatus) (\s@GetSignalingChannelEndpointResponse' {} a -> s {httpStatus = a} :: GetSignalingChannelEndpointResponse)++instance+  Prelude.NFData+    GetSignalingChannelEndpointResponse+  where+  rnf GetSignalingChannelEndpointResponse' {..} =+    Prelude.rnf resourceEndpointList+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,368 @@+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.Lens+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.KinesisVideo.Lens+  ( -- * Operations++    -- ** CreateSignalingChannel+    createSignalingChannel_channelType,+    createSignalingChannel_singleMasterConfiguration,+    createSignalingChannel_tags,+    createSignalingChannel_channelName,+    createSignalingChannelResponse_channelARN,+    createSignalingChannelResponse_httpStatus,++    -- ** CreateStream+    createStream_dataRetentionInHours,+    createStream_deviceName,+    createStream_kmsKeyId,+    createStream_mediaType,+    createStream_tags,+    createStream_streamName,+    createStreamResponse_streamARN,+    createStreamResponse_httpStatus,++    -- ** DeleteSignalingChannel+    deleteSignalingChannel_currentVersion,+    deleteSignalingChannel_channelARN,+    deleteSignalingChannelResponse_httpStatus,++    -- ** DeleteStream+    deleteStream_currentVersion,+    deleteStream_streamARN,+    deleteStreamResponse_httpStatus,++    -- ** DescribeEdgeConfiguration+    describeEdgeConfiguration_streamARN,+    describeEdgeConfiguration_streamName,+    describeEdgeConfigurationResponse_creationTime,+    describeEdgeConfigurationResponse_edgeConfig,+    describeEdgeConfigurationResponse_failedStatusDetails,+    describeEdgeConfigurationResponse_lastUpdatedTime,+    describeEdgeConfigurationResponse_streamARN,+    describeEdgeConfigurationResponse_streamName,+    describeEdgeConfigurationResponse_syncStatus,+    describeEdgeConfigurationResponse_httpStatus,++    -- ** DescribeImageGenerationConfiguration+    describeImageGenerationConfiguration_streamARN,+    describeImageGenerationConfiguration_streamName,+    describeImageGenerationConfigurationResponse_imageGenerationConfiguration,+    describeImageGenerationConfigurationResponse_httpStatus,++    -- ** DescribeMappedResourceConfiguration+    describeMappedResourceConfiguration_maxResults,+    describeMappedResourceConfiguration_nextToken,+    describeMappedResourceConfiguration_streamARN,+    describeMappedResourceConfiguration_streamName,+    describeMappedResourceConfigurationResponse_mappedResourceConfigurationList,+    describeMappedResourceConfigurationResponse_nextToken,+    describeMappedResourceConfigurationResponse_httpStatus,++    -- ** DescribeMediaStorageConfiguration+    describeMediaStorageConfiguration_channelARN,+    describeMediaStorageConfiguration_channelName,+    describeMediaStorageConfigurationResponse_mediaStorageConfiguration,+    describeMediaStorageConfigurationResponse_httpStatus,++    -- ** DescribeNotificationConfiguration+    describeNotificationConfiguration_streamARN,+    describeNotificationConfiguration_streamName,+    describeNotificationConfigurationResponse_notificationConfiguration,+    describeNotificationConfigurationResponse_httpStatus,++    -- ** DescribeSignalingChannel+    describeSignalingChannel_channelARN,+    describeSignalingChannel_channelName,+    describeSignalingChannelResponse_channelInfo,+    describeSignalingChannelResponse_httpStatus,++    -- ** DescribeStream+    describeStream_streamARN,+    describeStream_streamName,+    describeStreamResponse_streamInfo,+    describeStreamResponse_httpStatus,++    -- ** GetDataEndpoint+    getDataEndpoint_streamARN,+    getDataEndpoint_streamName,+    getDataEndpoint_aPIName,+    getDataEndpointResponse_dataEndpoint,+    getDataEndpointResponse_httpStatus,++    -- ** GetSignalingChannelEndpoint+    getSignalingChannelEndpoint_singleMasterChannelEndpointConfiguration,+    getSignalingChannelEndpoint_channelARN,+    getSignalingChannelEndpointResponse_resourceEndpointList,+    getSignalingChannelEndpointResponse_httpStatus,++    -- ** ListSignalingChannels+    listSignalingChannels_channelNameCondition,+    listSignalingChannels_maxResults,+    listSignalingChannels_nextToken,+    listSignalingChannelsResponse_channelInfoList,+    listSignalingChannelsResponse_nextToken,+    listSignalingChannelsResponse_httpStatus,++    -- ** ListStreams+    listStreams_maxResults,+    listStreams_nextToken,+    listStreams_streamNameCondition,+    listStreamsResponse_nextToken,+    listStreamsResponse_streamInfoList,+    listStreamsResponse_httpStatus,++    -- ** ListTagsForResource+    listTagsForResource_nextToken,+    listTagsForResource_resourceARN,+    listTagsForResourceResponse_nextToken,+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,++    -- ** ListTagsForStream+    listTagsForStream_nextToken,+    listTagsForStream_streamARN,+    listTagsForStream_streamName,+    listTagsForStreamResponse_nextToken,+    listTagsForStreamResponse_tags,+    listTagsForStreamResponse_httpStatus,++    -- ** StartEdgeConfigurationUpdate+    startEdgeConfigurationUpdate_streamARN,+    startEdgeConfigurationUpdate_streamName,+    startEdgeConfigurationUpdate_edgeConfig,+    startEdgeConfigurationUpdateResponse_creationTime,+    startEdgeConfigurationUpdateResponse_edgeConfig,+    startEdgeConfigurationUpdateResponse_failedStatusDetails,+    startEdgeConfigurationUpdateResponse_lastUpdatedTime,+    startEdgeConfigurationUpdateResponse_streamARN,+    startEdgeConfigurationUpdateResponse_streamName,+    startEdgeConfigurationUpdateResponse_syncStatus,+    startEdgeConfigurationUpdateResponse_httpStatus,++    -- ** TagResource+    tagResource_resourceARN,+    tagResource_tags,+    tagResourceResponse_httpStatus,++    -- ** TagStream+    tagStream_streamARN,+    tagStream_streamName,+    tagStream_tags,+    tagStreamResponse_httpStatus,++    -- ** UntagResource+    untagResource_resourceARN,+    untagResource_tagKeyList,+    untagResourceResponse_httpStatus,++    -- ** UntagStream+    untagStream_streamARN,+    untagStream_streamName,+    untagStream_tagKeyList,+    untagStreamResponse_httpStatus,++    -- ** UpdateDataRetention+    updateDataRetention_streamARN,+    updateDataRetention_streamName,+    updateDataRetention_currentVersion,+    updateDataRetention_operation,+    updateDataRetention_dataRetentionChangeInHours,+    updateDataRetentionResponse_httpStatus,++    -- ** UpdateImageGenerationConfiguration+    updateImageGenerationConfiguration_imageGenerationConfiguration,+    updateImageGenerationConfiguration_streamARN,+    updateImageGenerationConfiguration_streamName,+    updateImageGenerationConfigurationResponse_httpStatus,++    -- ** UpdateMediaStorageConfiguration+    updateMediaStorageConfiguration_channelARN,+    updateMediaStorageConfiguration_mediaStorageConfiguration,+    updateMediaStorageConfigurationResponse_httpStatus,++    -- ** UpdateNotificationConfiguration+    updateNotificationConfiguration_notificationConfiguration,+    updateNotificationConfiguration_streamARN,+    updateNotificationConfiguration_streamName,+    updateNotificationConfigurationResponse_httpStatus,++    -- ** UpdateSignalingChannel+    updateSignalingChannel_singleMasterConfiguration,+    updateSignalingChannel_channelARN,+    updateSignalingChannel_currentVersion,+    updateSignalingChannelResponse_httpStatus,++    -- ** UpdateStream+    updateStream_deviceName,+    updateStream_mediaType,+    updateStream_streamARN,+    updateStream_streamName,+    updateStream_currentVersion,+    updateStreamResponse_httpStatus,++    -- * Types++    -- ** ChannelInfo+    channelInfo_channelARN,+    channelInfo_channelName,+    channelInfo_channelStatus,+    channelInfo_channelType,+    channelInfo_creationTime,+    channelInfo_singleMasterConfiguration,+    channelInfo_version,++    -- ** ChannelNameCondition+    channelNameCondition_comparisonOperator,+    channelNameCondition_comparisonValue,++    -- ** DeletionConfig+    deletionConfig_deleteAfterUpload,+    deletionConfig_edgeRetentionInHours,+    deletionConfig_localSizeConfig,++    -- ** EdgeConfig+    edgeConfig_deletionConfig,+    edgeConfig_uploaderConfig,+    edgeConfig_hubDeviceArn,+    edgeConfig_recorderConfig,++    -- ** ImageGenerationConfiguration+    imageGenerationConfiguration_formatConfig,+    imageGenerationConfiguration_heightPixels,+    imageGenerationConfiguration_widthPixels,+    imageGenerationConfiguration_status,+    imageGenerationConfiguration_imageSelectorType,+    imageGenerationConfiguration_destinationConfig,+    imageGenerationConfiguration_samplingInterval,+    imageGenerationConfiguration_format,++    -- ** ImageGenerationDestinationConfig+    imageGenerationDestinationConfig_uri,+    imageGenerationDestinationConfig_destinationRegion,++    -- ** LocalSizeConfig+    localSizeConfig_maxLocalMediaSizeInMB,+    localSizeConfig_strategyOnFullSize,++    -- ** MappedResourceConfigurationListItem+    mappedResourceConfigurationListItem_arn,+    mappedResourceConfigurationListItem_type,++    -- ** MediaSourceConfig+    mediaSourceConfig_mediaUriSecretArn,+    mediaSourceConfig_mediaUriType,++    -- ** MediaStorageConfiguration+    mediaStorageConfiguration_streamARN,+    mediaStorageConfiguration_status,++    -- ** NotificationConfiguration+    notificationConfiguration_status,+    notificationConfiguration_destinationConfig,++    -- ** NotificationDestinationConfig+    notificationDestinationConfig_uri,++    -- ** RecorderConfig+    recorderConfig_scheduleConfig,+    recorderConfig_mediaSourceConfig,++    -- ** ResourceEndpointListItem+    resourceEndpointListItem_protocol,+    resourceEndpointListItem_resourceEndpoint,++    -- ** ScheduleConfig+    scheduleConfig_scheduleExpression,+    scheduleConfig_durationInSeconds,++    -- ** SingleMasterChannelEndpointConfiguration+    singleMasterChannelEndpointConfiguration_protocols,+    singleMasterChannelEndpointConfiguration_role,++    -- ** SingleMasterConfiguration+    singleMasterConfiguration_messageTtlSeconds,++    -- ** StreamInfo+    streamInfo_creationTime,+    streamInfo_dataRetentionInHours,+    streamInfo_deviceName,+    streamInfo_kmsKeyId,+    streamInfo_mediaType,+    streamInfo_status,+    streamInfo_streamARN,+    streamInfo_streamName,+    streamInfo_version,++    -- ** StreamNameCondition+    streamNameCondition_comparisonOperator,+    streamNameCondition_comparisonValue,++    -- ** Tag+    tag_key,+    tag_value,++    -- ** UploaderConfig+    uploaderConfig_scheduleConfig,+  )+where++import Amazonka.KinesisVideo.CreateSignalingChannel+import Amazonka.KinesisVideo.CreateStream+import Amazonka.KinesisVideo.DeleteSignalingChannel+import Amazonka.KinesisVideo.DeleteStream+import Amazonka.KinesisVideo.DescribeEdgeConfiguration+import Amazonka.KinesisVideo.DescribeImageGenerationConfiguration+import Amazonka.KinesisVideo.DescribeMappedResourceConfiguration+import Amazonka.KinesisVideo.DescribeMediaStorageConfiguration+import Amazonka.KinesisVideo.DescribeNotificationConfiguration+import Amazonka.KinesisVideo.DescribeSignalingChannel+import Amazonka.KinesisVideo.DescribeStream+import Amazonka.KinesisVideo.GetDataEndpoint+import Amazonka.KinesisVideo.GetSignalingChannelEndpoint+import Amazonka.KinesisVideo.ListSignalingChannels+import Amazonka.KinesisVideo.ListStreams+import Amazonka.KinesisVideo.ListTagsForResource+import Amazonka.KinesisVideo.ListTagsForStream+import Amazonka.KinesisVideo.StartEdgeConfigurationUpdate+import Amazonka.KinesisVideo.TagResource+import Amazonka.KinesisVideo.TagStream+import Amazonka.KinesisVideo.Types.ChannelInfo+import Amazonka.KinesisVideo.Types.ChannelNameCondition+import Amazonka.KinesisVideo.Types.DeletionConfig+import Amazonka.KinesisVideo.Types.EdgeConfig+import Amazonka.KinesisVideo.Types.ImageGenerationConfiguration+import Amazonka.KinesisVideo.Types.ImageGenerationDestinationConfig+import Amazonka.KinesisVideo.Types.LocalSizeConfig+import Amazonka.KinesisVideo.Types.MappedResourceConfigurationListItem+import Amazonka.KinesisVideo.Types.MediaSourceConfig+import Amazonka.KinesisVideo.Types.MediaStorageConfiguration+import Amazonka.KinesisVideo.Types.NotificationConfiguration+import Amazonka.KinesisVideo.Types.NotificationDestinationConfig+import Amazonka.KinesisVideo.Types.RecorderConfig+import Amazonka.KinesisVideo.Types.ResourceEndpointListItem+import Amazonka.KinesisVideo.Types.ScheduleConfig+import Amazonka.KinesisVideo.Types.SingleMasterChannelEndpointConfiguration+import Amazonka.KinesisVideo.Types.SingleMasterConfiguration+import Amazonka.KinesisVideo.Types.StreamInfo+import Amazonka.KinesisVideo.Types.StreamNameCondition+import Amazonka.KinesisVideo.Types.Tag+import Amazonka.KinesisVideo.Types.UploaderConfig+import Amazonka.KinesisVideo.UntagResource+import Amazonka.KinesisVideo.UntagStream+import Amazonka.KinesisVideo.UpdateDataRetention+import Amazonka.KinesisVideo.UpdateImageGenerationConfiguration+import Amazonka.KinesisVideo.UpdateMediaStorageConfiguration+import Amazonka.KinesisVideo.UpdateNotificationConfiguration+import Amazonka.KinesisVideo.UpdateSignalingChannel+import Amazonka.KinesisVideo.UpdateStream

@@ -0,0 +1,246 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.ListSignalingChannels+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns an array of @ChannelInfo@ objects. Each object describes a+-- signaling channel. To retrieve only those channels that satisfy a+-- specific condition, you can specify a @ChannelNameCondition@.+--+-- This operation returns paginated results.+module Amazonka.KinesisVideo.ListSignalingChannels+  ( -- * Creating a Request+    ListSignalingChannels (..),+    newListSignalingChannels,++    -- * Request Lenses+    listSignalingChannels_channelNameCondition,+    listSignalingChannels_maxResults,+    listSignalingChannels_nextToken,++    -- * Destructuring the Response+    ListSignalingChannelsResponse (..),+    newListSignalingChannelsResponse,++    -- * Response Lenses+    listSignalingChannelsResponse_channelInfoList,+    listSignalingChannelsResponse_nextToken,+    listSignalingChannelsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListSignalingChannels' smart constructor.+data ListSignalingChannels = ListSignalingChannels'+  { -- | Optional: Returns only the channels that satisfy a specific condition.+    channelNameCondition :: Prelude.Maybe ChannelNameCondition,+    -- | The maximum number of channels to return in the response. The default is+    -- 500.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | If you specify this parameter, when the result of a+    -- @ListSignalingChannels@ operation is truncated, the call returns the+    -- @NextToken@ in the response. To get another batch of channels, provide+    -- this token in your next request.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSignalingChannels' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'channelNameCondition', 'listSignalingChannels_channelNameCondition' - Optional: Returns only the channels that satisfy a specific condition.+--+-- 'maxResults', 'listSignalingChannels_maxResults' - The maximum number of channels to return in the response. The default is+-- 500.+--+-- 'nextToken', 'listSignalingChannels_nextToken' - If you specify this parameter, when the result of a+-- @ListSignalingChannels@ operation is truncated, the call returns the+-- @NextToken@ in the response. To get another batch of channels, provide+-- this token in your next request.+newListSignalingChannels ::+  ListSignalingChannels+newListSignalingChannels =+  ListSignalingChannels'+    { channelNameCondition =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | Optional: Returns only the channels that satisfy a specific condition.+listSignalingChannels_channelNameCondition :: Lens.Lens' ListSignalingChannels (Prelude.Maybe ChannelNameCondition)+listSignalingChannels_channelNameCondition = Lens.lens (\ListSignalingChannels' {channelNameCondition} -> channelNameCondition) (\s@ListSignalingChannels' {} a -> s {channelNameCondition = a} :: ListSignalingChannels)++-- | The maximum number of channels to return in the response. The default is+-- 500.+listSignalingChannels_maxResults :: Lens.Lens' ListSignalingChannels (Prelude.Maybe Prelude.Natural)+listSignalingChannels_maxResults = Lens.lens (\ListSignalingChannels' {maxResults} -> maxResults) (\s@ListSignalingChannels' {} a -> s {maxResults = a} :: ListSignalingChannels)++-- | If you specify this parameter, when the result of a+-- @ListSignalingChannels@ operation is truncated, the call returns the+-- @NextToken@ in the response. To get another batch of channels, provide+-- this token in your next request.+listSignalingChannels_nextToken :: Lens.Lens' ListSignalingChannels (Prelude.Maybe Prelude.Text)+listSignalingChannels_nextToken = Lens.lens (\ListSignalingChannels' {nextToken} -> nextToken) (\s@ListSignalingChannels' {} a -> s {nextToken = a} :: ListSignalingChannels)++instance Core.AWSPager ListSignalingChannels where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listSignalingChannelsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listSignalingChannelsResponse_channelInfoList+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listSignalingChannels_nextToken+          Lens..~ rs+          Lens.^? listSignalingChannelsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListSignalingChannels where+  type+    AWSResponse ListSignalingChannels =+      ListSignalingChannelsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListSignalingChannelsResponse'+            Prelude.<$> ( x+                            Data..?> "ChannelInfoList"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListSignalingChannels where+  hashWithSalt _salt ListSignalingChannels' {..} =+    _salt+      `Prelude.hashWithSalt` channelNameCondition+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListSignalingChannels where+  rnf ListSignalingChannels' {..} =+    Prelude.rnf channelNameCondition+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListSignalingChannels where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON ListSignalingChannels where+  toJSON ListSignalingChannels' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ChannelNameCondition" Data..=)+              Prelude.<$> channelNameCondition,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListSignalingChannels where+  toPath = Prelude.const "/listSignalingChannels"++instance Data.ToQuery ListSignalingChannels where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListSignalingChannelsResponse' smart constructor.+data ListSignalingChannelsResponse = ListSignalingChannelsResponse'+  { -- | An array of @ChannelInfo@ objects.+    channelInfoList :: Prelude.Maybe [ChannelInfo],+    -- | If the response is truncated, the call returns this element with a+    -- token. To get the next batch of streams, use this token in your next+    -- request.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSignalingChannelsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'channelInfoList', 'listSignalingChannelsResponse_channelInfoList' - An array of @ChannelInfo@ objects.+--+-- 'nextToken', 'listSignalingChannelsResponse_nextToken' - If the response is truncated, the call returns this element with a+-- token. To get the next batch of streams, use this token in your next+-- request.+--+-- 'httpStatus', 'listSignalingChannelsResponse_httpStatus' - The response's http status code.+newListSignalingChannelsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListSignalingChannelsResponse+newListSignalingChannelsResponse pHttpStatus_ =+  ListSignalingChannelsResponse'+    { channelInfoList =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An array of @ChannelInfo@ objects.+listSignalingChannelsResponse_channelInfoList :: Lens.Lens' ListSignalingChannelsResponse (Prelude.Maybe [ChannelInfo])+listSignalingChannelsResponse_channelInfoList = Lens.lens (\ListSignalingChannelsResponse' {channelInfoList} -> channelInfoList) (\s@ListSignalingChannelsResponse' {} a -> s {channelInfoList = a} :: ListSignalingChannelsResponse) Prelude.. Lens.mapping Lens.coerced++-- | If the response is truncated, the call returns this element with a+-- token. To get the next batch of streams, use this token in your next+-- request.+listSignalingChannelsResponse_nextToken :: Lens.Lens' ListSignalingChannelsResponse (Prelude.Maybe Prelude.Text)+listSignalingChannelsResponse_nextToken = Lens.lens (\ListSignalingChannelsResponse' {nextToken} -> nextToken) (\s@ListSignalingChannelsResponse' {} a -> s {nextToken = a} :: ListSignalingChannelsResponse)++-- | The response's http status code.+listSignalingChannelsResponse_httpStatus :: Lens.Lens' ListSignalingChannelsResponse Prelude.Int+listSignalingChannelsResponse_httpStatus = Lens.lens (\ListSignalingChannelsResponse' {httpStatus} -> httpStatus) (\s@ListSignalingChannelsResponse' {} a -> s {httpStatus = a} :: ListSignalingChannelsResponse)++instance Prelude.NFData ListSignalingChannelsResponse where+  rnf ListSignalingChannelsResponse' {..} =+    Prelude.rnf channelInfoList+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,245 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.KinesisVideo.ListStreams+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns an array of @StreamInfo@ objects. Each object describes a+-- stream. To retrieve only streams that satisfy a specific condition, you+-- can specify a @StreamNameCondition@.+--+-- This operation returns paginated results.+module Amazonka.KinesisVideo.ListStreams+  ( -- * Creating a Request+    ListStreams (..),+    newListStreams,++    -- * Request Lenses+    listStreams_maxResults,+    listStreams_nextToken,+    listStreams_streamNameCondition,++    -- * Destructuring the Response+    ListStreamsResponse (..),+    newListStreamsResponse,++    -- * Response Lenses+    listStreamsResponse_nextToken,+    listStreamsResponse_streamInfoList,+    listStreamsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.KinesisVideo.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListStreams' smart constructor.+data ListStreams = ListStreams'+  { -- | The maximum number of streams to return in the response. The default is+    -- 10,000.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | If you specify this parameter, when the result of a @ListStreams@+    -- operation is truncated, the call returns the @NextToken@ in the+    -- response. To get another batch of streams, provide this token in your+    -- next request.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Optional: Returns only streams that satisfy a specific condition.+    -- Currently, you can specify only the prefix of a stream name as a+    -- condition.+    streamNameCondition :: Prelude.Maybe StreamNameCondition+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListStreams' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listStreams_maxResults' - The maximum number of streams to return in the response. The default is+-- 10,000.+--+-- 'nextToken', 'listStreams_nextToken' - If you specify this parameter, when the result of a @ListStreams@+-- operation is truncated, the call returns the @NextToken@ in the+-- response. To get another batch of streams, provide this token in your+-- next request.+--+-- 'streamNameCondition', 'listStreams_streamNameCondition' - Optional: Returns only streams that satisfy a specific condition.+-- Currently, you can specify only the prefix of a stream name as a+-- condition.+newListStreams ::+  ListStreams+newListStreams =+  ListStreams'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      streamNameCondition = Prelude.Nothing+    }++-- | The maximum number of streams to return in the response. The default is+-- 10,000.+listStreams_maxResults :: Lens.Lens' ListStreams (Prelude.Maybe Prelude.Natural)+listStreams_maxResults = Lens.lens (\ListStreams' {maxResults} -> maxResults) (\s@ListStreams' {} a -> s {maxResults = a} :: ListStreams)++-- | If you specify this parameter, when the result of a @ListStreams@+-- operation is truncated, the call returns the @NextToken@ in the+-- response. To get another batch of streams, provide this token in your+-- next request.+listStreams_nextToken :: Lens.Lens' ListStreams (Prelude.Maybe Prelude.Text)+listStreams_nextToken = Lens.lens (\ListStreams' {nextToken} -> nextToken) (\s@ListStreams' {} a -> s {nextToken = a} :: ListStreams)++-- | Optional: Returns only streams that satisfy a specific condition.+-- Currently, you can specify only the prefix of a stream name as a+-- condition.+listStreams_streamNameCondition :: Lens.Lens' ListStreams (Prelude.Maybe StreamNameCondition)+listStreams_streamNameCondition = Lens.lens (\ListStreams' {streamNameCondition} -> streamNameCondition) (\s@ListStreams' {} a -> s {streamNameCondition = a} :: ListStreams)++instance Core.AWSPager ListStreams where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listStreamsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listStreamsResponse_streamInfoList+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listStreams_nextToken+          Lens..~ rs+          Lens.^? listStreamsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListStreams where+  type AWSResponse ListStreams = ListStreamsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListStreamsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "StreamInfoList" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListStreams where+  hashWithSalt _salt ListStreams' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` streamNameCondition++instance Prelude.NFData ListStreams where+  rnf ListStreams' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf streamNameCondition++instance Data.ToHeaders ListStreams where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON ListStreams where+  toJSON ListStreams' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("StreamNameCondition" Data..=)+              Prelude.<$> streamNameCondition+          ]+      )++instance Data.ToPath ListStreams where+  toPath = Prelude.const "/listStreams"++instance Data.ToQuery ListStreams where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListStreamsResponse' smart constructor.+data ListStreamsResponse = ListStreamsResponse'+  { -- | If the response is truncated, the call returns this element with a+    -- token. To get the next batch of streams, use this token in your next+    -- request.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | An array of @StreamInfo@ objects.+    streamInfoList :: Prelude.Maybe [StreamInfo],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListStreamsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listStreamsResponse_nextToken' - If the response is truncated, the call returns this element with a+-- token. To get the next batch of streams, use this token in your next+-- request.+--+-- 'streamInfoList', 'listStreamsResponse_streamInfoList' - An array of @StreamInfo@ objects.+--+-- 'httpStatus', 'listStreamsResponse_httpStatus' - The response's http status code.+newListStreamsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListStreamsResponse+newListStreamsResponse pHttpStatus_ =+  ListStreamsResponse'+    { nextToken = Prelude.Nothing,+      streamInfoList = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If the response is truncated, the call returns this element with a+-- token. To get the next batch of streams, use this token in your next+-- request.+listStreamsResponse_nextToken :: Lens.Lens' ListStreamsResponse (Prelude.Maybe Prelude.Text)+listStreamsResponse_nextToken = Lens.lens (\ListStreamsResponse' {nextToken} -> nextToken) (\s@ListStreamsResponse' {} a -> s {nextToken = a} :: ListStreamsResponse)++-- | An array of @StreamInfo@ objects.+listStreamsResponse_streamInfoList :: Lens.Lens' ListStreamsResponse (Prelude.Maybe [StreamInfo])+listStreamsResponse_streamInfoList = Lens.lens (\ListStreamsResponse' {streamInfoList} -> streamInfoList) (\s@ListStreamsResponse' {} a -> s {streamInfoList = a} :: ListStreamsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listStreamsResponse_httpStatus :: Lens.Lens' ListStreamsResponse Prelude.Int+listStreamsResponse_httpStatus = Lens.lens (\ListStreamsResponse' {httpStatus} -> httpStatus) (\s@ListStreamsResponse' {} a -> s {httpStatus = a} :: ListStreamsResponse)++instance Prelude.NFData ListStreamsResponse where+  rnf ListStreamsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf streamInfoList+      `Prelude.seq` Prelude.rnf httpStatus