{-# 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.KinesisVideoArchivedMedia.GetHLSStreamingSessionURL -- Copyright : (c) 2013-2023 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Retrieves an HTTP Live Streaming (HLS) URL for the stream. You can then -- open the URL in a browser or media player to view the stream contents. -- -- Both the @StreamName@ and the @StreamARN@ parameters are optional, but -- you must specify either the @StreamName@ or the @StreamARN@ when -- invoking this API operation. -- -- An Amazon Kinesis video stream has the following requirements for -- providing data through HLS: -- -- - The media must contain h.264 or h.265 encoded video and, optionally, -- AAC encoded audio. Specifically, the codec ID of track 1 should be -- @V_MPEG\/ISO\/AVC@ (for h.264) or @V_MPEG\/ISO\/HEVC@ (for h.265). -- Optionally, the codec ID of track 2 should be @A_AAC@. -- -- - Data retention must be greater than 0. -- -- - The video track of each fragment must contain codec private data in -- the Advanced Video Coding (AVC) for H.264 format or HEVC for H.265 -- format -- (<https://www.iso.org/standard/55980.html MPEG-4 specification ISO\/IEC 14496-15>). -- For information about adapting stream data to a given format, see -- <http://docs.aws.amazon.com/kinesisvideostreams/latest/dg/producer-reference-nal.html NAL Adaptation Flags>. -- -- - The audio track (if present) of each fragment must contain codec -- private data in the AAC format -- (<https://www.iso.org/standard/43345.html AAC specification ISO\/IEC 13818-7>). -- -- Kinesis Video Streams HLS sessions contain fragments in the fragmented -- MPEG-4 form (also called fMP4 or CMAF) or the MPEG-2 form (also called -- TS chunks, which the HLS specification also supports). For more -- information about HLS fragment types, see the -- <https://tools.ietf.org/html/draft-pantos-http-live-streaming-23 HLS specification>. -- -- The following procedure shows how to use HLS with Kinesis Video Streams: -- -- 1. Get an endpoint using -- <http://docs.aws.amazon.com/kinesisvideostreams/latest/dg/API_GetDataEndpoint.html GetDataEndpoint>, -- specifying @GET_HLS_STREAMING_SESSION_URL@ for the @APIName@ -- parameter. -- -- 2. Retrieve the HLS URL using @GetHLSStreamingSessionURL@. Kinesis -- Video Streams creates an HLS streaming session to be used for -- accessing content in a stream using the HLS protocol. -- @GetHLSStreamingSessionURL@ returns an authenticated URL (that -- includes an encrypted session token) for the session\'s HLS /master -- playlist/ (the root resource needed for streaming with HLS). -- -- Don\'t share or store this token where an unauthorized entity could -- access it. The token provides access to the content of the stream. -- Safeguard the token with the same measures that you would use with -- your AWS credentials. -- -- The media that is made available through the playlist consists only -- of the requested stream, time range, and format. No other media data -- (such as frames outside the requested window or alternate bitrates) -- is made available. -- -- 3. Provide the URL (containing the encrypted session token) for the HLS -- master playlist to a media player that supports the HLS protocol. -- Kinesis Video Streams makes the HLS media playlist, initialization -- fragment, and media fragments available through the master playlist -- URL. The initialization fragment contains the codec private data for -- the stream, and other data needed to set up the video or audio -- decoder and renderer. The media fragments contain H.264-encoded -- video frames or AAC-encoded audio samples. -- -- 4. The media player receives the authenticated URL and requests stream -- metadata and media data normally. When the media player requests -- data, it calls the following actions: -- -- - __GetHLSMasterPlaylist:__ Retrieves an HLS master playlist, -- which contains a URL for the @GetHLSMediaPlaylist@ action for -- each track, and additional metadata for the media player, -- including estimated bitrate and resolution. -- -- - __GetHLSMediaPlaylist:__ Retrieves an HLS media playlist, which -- contains a URL to access the MP4 initialization fragment with -- the @GetMP4InitFragment@ action, and URLs to access the MP4 -- media fragments with the @GetMP4MediaFragment@ actions. The HLS -- media playlist also contains metadata about the stream that the -- player needs to play it, such as whether the @PlaybackMode@ is -- @LIVE@ or @ON_DEMAND@. The HLS media playlist is typically -- static for sessions with a @PlaybackType@ of @ON_DEMAND@. The -- HLS media playlist is continually updated with new fragments for -- sessions with a @PlaybackType@ of @LIVE@. There is a distinct -- HLS media playlist for the video track and the audio track (if -- applicable) that contains MP4 media URLs for the specific track. -- -- - __GetMP4InitFragment:__ Retrieves the MP4 initialization -- fragment. The media player typically loads the initialization -- fragment before loading any media fragments. This fragment -- contains the \"@fytp@\" and \"@moov@\" MP4 atoms, and the child -- atoms that are needed to initialize the media player decoder. -- -- The initialization fragment does not correspond to a fragment in -- a Kinesis video stream. It contains only the codec private data -- for the stream and respective track, which the media player -- needs to decode the media frames. -- -- - __GetMP4MediaFragment:__ Retrieves MP4 media fragments. These -- fragments contain the \"@moof@\" and \"@mdat@\" MP4 atoms and -- their child atoms, containing the encoded fragment\'s media -- frames and their timestamps. -- -- After the first media fragment is made available in a streaming -- session, any fragments that don\'t contain the same codec -- private data cause an error to be returned when those different -- media fragments are loaded. Therefore, the codec private data -- should not change between fragments in a session. This also -- means that the session fails if the fragments in a stream change -- from having only video to having both audio and video. -- -- Data retrieved with this action is billable. See -- <https://aws.amazon.com/kinesis/video-streams/pricing/ Pricing> -- for details. -- -- - __GetTSFragment:__ Retrieves MPEG TS fragments containing both -- initialization and media data for all tracks in the stream. -- -- If the @ContainerFormat@ is @MPEG_TS@, this API is used instead -- of @GetMP4InitFragment@ and @GetMP4MediaFragment@ to retrieve -- stream media. -- -- Data retrieved with this action is billable. For more -- information, see -- <https://aws.amazon.com/kinesis/video-streams/pricing/ Kinesis Video Streams pricing>. -- -- A streaming session URL must not be shared between players. The service -- might throttle a session if multiple media players are sharing it. For -- connection limits, see -- <http://docs.aws.amazon.com/kinesisvideostreams/latest/dg/limits.html Kinesis Video Streams Limits>. -- -- You can monitor the amount of data that the media player consumes by -- monitoring the @GetMP4MediaFragment.OutgoingBytes@ Amazon CloudWatch -- metric. For information about using CloudWatch to monitor Kinesis Video -- Streams, see -- <http://docs.aws.amazon.com/kinesisvideostreams/latest/dg/monitoring.html Monitoring Kinesis Video Streams>. -- For pricing information, see -- <https://aws.amazon.com/kinesis/video-streams/pricing/ Amazon Kinesis Video Streams Pricing> -- and <https://aws.amazon.com/pricing/ AWS Pricing>. Charges for both HLS -- sessions and outgoing AWS data apply. -- -- For more information about HLS, see -- <https://developer.apple.com/streaming/ HTTP Live Streaming> on the -- <https://developer.apple.com Apple Developer site>. -- -- If an error is thrown after invoking a Kinesis Video Streams archived -- media API, in addition to the HTTP status code and the response body, it -- includes the following pieces of information: -- -- - @x-amz-ErrorType@ HTTP header – contains a more specific error type -- in addition to what the HTTP status code provides. -- -- - @x-amz-RequestId@ HTTP header – if you want to report an issue to -- AWS, the support team can better diagnose the problem if given the -- Request Id. -- -- Both the HTTP status code and the ErrorType header can be utilized to -- make programmatic decisions about whether errors are retry-able and -- under what conditions, as well as provide information on what actions -- the client programmer might need to take in order to successfully try -- again. -- -- For more information, see the __Errors__ section at the bottom of this -- topic, as well as -- <https://docs.aws.amazon.com/kinesisvideostreams/latest/dg/CommonErrors.html Common Errors>. module Amazonka.KinesisVideoArchivedMedia.GetHLSStreamingSessionURL ( -- * Creating a Request GetHLSStreamingSessionURL (..), newGetHLSStreamingSessionURL, -- * Request Lenses getHLSStreamingSessionURL_containerFormat, getHLSStreamingSessionURL_discontinuityMode, getHLSStreamingSessionURL_displayFragmentTimestamp, getHLSStreamingSessionURL_expires, getHLSStreamingSessionURL_hLSFragmentSelector, getHLSStreamingSessionURL_maxMediaPlaylistFragmentResults, getHLSStreamingSessionURL_playbackMode, getHLSStreamingSessionURL_streamARN, getHLSStreamingSessionURL_streamName, -- * Destructuring the Response GetHLSStreamingSessionURLResponse (..), newGetHLSStreamingSessionURLResponse, -- * Response Lenses getHLSStreamingSessionURLResponse_hLSStreamingSessionURL, getHLSStreamingSessionURLResponse_httpStatus, ) where import qualified Amazonka.Core as Core import qualified Amazonka.Core.Lens.Internal as Lens import qualified Amazonka.Data as Data import Amazonka.KinesisVideoArchivedMedia.Types import qualified Amazonka.Prelude as Prelude import qualified Amazonka.Request as Request import qualified Amazonka.Response as Response -- | /See:/ 'newGetHLSStreamingSessionURL' smart constructor. data GetHLSStreamingSessionURL = GetHLSStreamingSessionURL' { -- | Specifies which format should be used for packaging the media. -- Specifying the @FRAGMENTED_MP4@ container format packages the media into -- MP4 fragments (fMP4 or CMAF). This is the recommended packaging because -- there is minimal packaging overhead. The other container format option -- is @MPEG_TS@. HLS has supported MPEG TS chunks since it was released and -- is sometimes the only supported packaging on older HLS players. MPEG TS -- typically has a 5-25 percent packaging overhead. This means MPEG TS -- typically requires 5-25 percent more bandwidth and cost than fMP4. -- -- The default is @FRAGMENTED_MP4@. GetHLSStreamingSessionURL -> Maybe ContainerFormat containerFormat :: Prelude.Maybe ContainerFormat, -- | Specifies when flags marking discontinuities between fragments are added -- to the media playlists. -- -- Media players typically build a timeline of media content to play, based -- on the timestamps of each fragment. This means that if there is any -- overlap or gap between fragments (as is typical if HLSFragmentSelector -- is set to @SERVER_TIMESTAMP@), the media player timeline will also have -- small gaps between fragments in some places, and will overwrite frames -- in other places. Gaps in the media player timeline can cause playback to -- stall and overlaps can cause playback to be jittery. When there are -- discontinuity flags between fragments, the media player is expected to -- reset the timeline, resulting in the next fragment being played -- immediately after the previous fragment. -- -- The following modes are supported: -- -- - @ALWAYS@: a discontinuity marker is placed between every fragment in -- the HLS media playlist. It is recommended to use a value of @ALWAYS@ -- if the fragment timestamps are not accurate. -- -- - @NEVER@: no discontinuity markers are placed anywhere. It is -- recommended to use a value of @NEVER@ to ensure the media player -- timeline most accurately maps to the producer timestamps. -- -- - @ON_DISCONTINUITY@: a discontinuity marker is placed between -- fragments that have a gap or overlap of more than 50 milliseconds. -- For most playback scenarios, it is recommended to use a value of -- @ON_DISCONTINUITY@ so that the media player timeline is only reset -- when there is a significant issue with the media timeline (e.g. a -- missing fragment). -- -- The default is @ALWAYS@ when HLSFragmentSelector is set to -- @SERVER_TIMESTAMP@, and @NEVER@ when it is set to @PRODUCER_TIMESTAMP@. GetHLSStreamingSessionURL -> Maybe HLSDiscontinuityMode discontinuityMode :: Prelude.Maybe HLSDiscontinuityMode, -- | Specifies when the fragment start timestamps should be included in the -- HLS media playlist. Typically, media players report the playhead -- position as a time relative to the start of the first fragment in the -- playback session. However, when the start timestamps are included in the -- HLS media playlist, some media players might report the current playhead -- as an absolute time based on the fragment timestamps. This can be useful -- for creating a playback experience that shows viewers the wall-clock -- time of the media. -- -- The default is @NEVER@. When HLSFragmentSelector is @SERVER_TIMESTAMP@, -- the timestamps will be the server start timestamps. Similarly, when -- HLSFragmentSelector is @PRODUCER_TIMESTAMP@, the timestamps will be the -- producer start timestamps. GetHLSStreamingSessionURL -> Maybe HLSDisplayFragmentTimestamp displayFragmentTimestamp :: Prelude.Maybe HLSDisplayFragmentTimestamp, -- | The time in seconds until the requested session expires. This value can -- be between 300 (5 minutes) and 43200 (12 hours). -- -- When a session expires, no new calls to @GetHLSMasterPlaylist@, -- @GetHLSMediaPlaylist@, @GetMP4InitFragment@, @GetMP4MediaFragment@, or -- @GetTSFragment@ can be made for that session. -- -- The default is 300 (5 minutes). GetHLSStreamingSessionURL -> Maybe Natural expires :: Prelude.Maybe Prelude.Natural, -- | The time range of the requested fragment and the source of the -- timestamps. -- -- This parameter is required if @PlaybackMode@ is @ON_DEMAND@ or -- @LIVE_REPLAY@. This parameter is optional if PlaybackMode is @LIVE@. If -- @PlaybackMode@ is @LIVE@, the @FragmentSelectorType@ can be set, but the -- @TimestampRange@ should not be set. If @PlaybackMode@ is @ON_DEMAND@ or -- @LIVE_REPLAY@, both @FragmentSelectorType@ and @TimestampRange@ must be -- set. GetHLSStreamingSessionURL -> Maybe HLSFragmentSelector hLSFragmentSelector :: Prelude.Maybe HLSFragmentSelector, -- | The maximum number of fragments that are returned in the HLS media -- playlists. -- -- When the @PlaybackMode@ is @LIVE@, the most recent fragments are -- returned up to this value. When the @PlaybackMode@ is @ON_DEMAND@, the -- oldest fragments are returned, up to this maximum number. -- -- When there are a higher number of fragments available in a live HLS -- media playlist, video players often buffer content before starting -- playback. Increasing the buffer size increases the playback latency, but -- it decreases the likelihood that rebuffering will occur during playback. -- We recommend that a live HLS media playlist have a minimum of 3 -- fragments and a maximum of 10 fragments. -- -- The default is 5 fragments if @PlaybackMode@ is @LIVE@ or @LIVE_REPLAY@, -- and 1,000 if @PlaybackMode@ is @ON_DEMAND@. -- -- The maximum value of 5,000 fragments corresponds to more than 80 minutes -- of video on streams with 1-second fragments, and more than 13 hours of -- video on streams with 10-second fragments. GetHLSStreamingSessionURL -> Maybe Natural maxMediaPlaylistFragmentResults :: Prelude.Maybe Prelude.Natural, -- | Whether to retrieve live, live replay, or archived, on-demand data. -- -- Features of the three types of sessions include the following: -- -- - __@LIVE@__ : For sessions of this type, the HLS media playlist is -- continually updated with the latest fragments as they become -- available. We recommend that the media player retrieve a new -- playlist on a one-second interval. When this type of session is -- played in a media player, the user interface typically displays a -- \"live\" notification, with no scrubber control for choosing the -- position in the playback window to display. -- -- In @LIVE@ mode, the newest available fragments are included in an -- HLS media playlist, even if there is a gap between fragments (that -- is, if a fragment is missing). A gap like this might cause a media -- player to halt or cause a jump in playback. In this mode, fragments -- are not added to the HLS media playlist if they are older than the -- newest fragment in the playlist. If the missing fragment becomes -- available after a subsequent fragment is added to the playlist, the -- older fragment is not added, and the gap is not filled. -- -- - __@LIVE_REPLAY@__ : For sessions of this type, the HLS media -- playlist is updated similarly to how it is updated for @LIVE@ mode -- except that it starts by including fragments from a given start -- time. Instead of fragments being added as they are ingested, -- fragments are added as the duration of the next fragment elapses. -- For example, if the fragments in the session are two seconds long, -- then a new fragment is added to the media playlist every two -- seconds. This mode is useful to be able to start playback from when -- an event is detected and continue live streaming media that has not -- yet been ingested as of the time of the session creation. This mode -- is also useful to stream previously archived media without being -- limited by the 1,000 fragment limit in the @ON_DEMAND@ mode. -- -- - __@ON_DEMAND@__ : For sessions of this type, the HLS media playlist -- contains all the fragments for the session, up to the number that is -- specified in @MaxMediaPlaylistFragmentResults@. The playlist must be -- retrieved only once for each session. When this type of session is -- played in a media player, the user interface typically displays a -- scrubber control for choosing the position in the playback window to -- display. -- -- In all playback modes, if @FragmentSelectorType@ is -- @PRODUCER_TIMESTAMP@, and if there are multiple fragments with the same -- start timestamp, the fragment that has the largest fragment number (that -- is, the newest fragment) is included in the HLS media playlist. The -- other fragments are not included. Fragments that have different -- timestamps but have overlapping durations are still included in the HLS -- media playlist. This can lead to unexpected behavior in the media -- player. -- -- The default is @LIVE@. GetHLSStreamingSessionURL -> Maybe HLSPlaybackMode playbackMode :: Prelude.Maybe HLSPlaybackMode, -- | The Amazon Resource Name (ARN) of the stream for which to retrieve the -- HLS master playlist URL. -- -- You must specify either the @StreamName@ or the @StreamARN@. GetHLSStreamingSessionURL -> Maybe Text streamARN :: Prelude.Maybe Prelude.Text, -- | The name of the stream for which to retrieve the HLS master playlist -- URL. -- -- You must specify either the @StreamName@ or the @StreamARN@. GetHLSStreamingSessionURL -> Maybe Text streamName :: Prelude.Maybe Prelude.Text } deriving (GetHLSStreamingSessionURL -> GetHLSStreamingSessionURL -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: GetHLSStreamingSessionURL -> GetHLSStreamingSessionURL -> Bool $c/= :: GetHLSStreamingSessionURL -> GetHLSStreamingSessionURL -> Bool == :: GetHLSStreamingSessionURL -> GetHLSStreamingSessionURL -> Bool $c== :: GetHLSStreamingSessionURL -> GetHLSStreamingSessionURL -> Bool Prelude.Eq, ReadPrec [GetHLSStreamingSessionURL] ReadPrec GetHLSStreamingSessionURL Int -> ReadS GetHLSStreamingSessionURL ReadS [GetHLSStreamingSessionURL] forall a. (Int -> ReadS a) -> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a readListPrec :: ReadPrec [GetHLSStreamingSessionURL] $creadListPrec :: ReadPrec [GetHLSStreamingSessionURL] readPrec :: ReadPrec GetHLSStreamingSessionURL $creadPrec :: ReadPrec GetHLSStreamingSessionURL readList :: ReadS [GetHLSStreamingSessionURL] $creadList :: ReadS [GetHLSStreamingSessionURL] readsPrec :: Int -> ReadS GetHLSStreamingSessionURL $creadsPrec :: Int -> ReadS GetHLSStreamingSessionURL Prelude.Read, Int -> GetHLSStreamingSessionURL -> ShowS [GetHLSStreamingSessionURL] -> ShowS GetHLSStreamingSessionURL -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [GetHLSStreamingSessionURL] -> ShowS $cshowList :: [GetHLSStreamingSessionURL] -> ShowS show :: GetHLSStreamingSessionURL -> String $cshow :: GetHLSStreamingSessionURL -> String showsPrec :: Int -> GetHLSStreamingSessionURL -> ShowS $cshowsPrec :: Int -> GetHLSStreamingSessionURL -> ShowS Prelude.Show, forall x. Rep GetHLSStreamingSessionURL x -> GetHLSStreamingSessionURL forall x. GetHLSStreamingSessionURL -> Rep GetHLSStreamingSessionURL x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep GetHLSStreamingSessionURL x -> GetHLSStreamingSessionURL $cfrom :: forall x. GetHLSStreamingSessionURL -> Rep GetHLSStreamingSessionURL x Prelude.Generic) -- | -- Create a value of 'GetHLSStreamingSessionURL' 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: -- -- 'containerFormat', 'getHLSStreamingSessionURL_containerFormat' - Specifies which format should be used for packaging the media. -- Specifying the @FRAGMENTED_MP4@ container format packages the media into -- MP4 fragments (fMP4 or CMAF). This is the recommended packaging because -- there is minimal packaging overhead. The other container format option -- is @MPEG_TS@. HLS has supported MPEG TS chunks since it was released and -- is sometimes the only supported packaging on older HLS players. MPEG TS -- typically has a 5-25 percent packaging overhead. This means MPEG TS -- typically requires 5-25 percent more bandwidth and cost than fMP4. -- -- The default is @FRAGMENTED_MP4@. -- -- 'discontinuityMode', 'getHLSStreamingSessionURL_discontinuityMode' - Specifies when flags marking discontinuities between fragments are added -- to the media playlists. -- -- Media players typically build a timeline of media content to play, based -- on the timestamps of each fragment. This means that if there is any -- overlap or gap between fragments (as is typical if HLSFragmentSelector -- is set to @SERVER_TIMESTAMP@), the media player timeline will also have -- small gaps between fragments in some places, and will overwrite frames -- in other places. Gaps in the media player timeline can cause playback to -- stall and overlaps can cause playback to be jittery. When there are -- discontinuity flags between fragments, the media player is expected to -- reset the timeline, resulting in the next fragment being played -- immediately after the previous fragment. -- -- The following modes are supported: -- -- - @ALWAYS@: a discontinuity marker is placed between every fragment in -- the HLS media playlist. It is recommended to use a value of @ALWAYS@ -- if the fragment timestamps are not accurate. -- -- - @NEVER@: no discontinuity markers are placed anywhere. It is -- recommended to use a value of @NEVER@ to ensure the media player -- timeline most accurately maps to the producer timestamps. -- -- - @ON_DISCONTINUITY@: a discontinuity marker is placed between -- fragments that have a gap or overlap of more than 50 milliseconds. -- For most playback scenarios, it is recommended to use a value of -- @ON_DISCONTINUITY@ so that the media player timeline is only reset -- when there is a significant issue with the media timeline (e.g. a -- missing fragment). -- -- The default is @ALWAYS@ when HLSFragmentSelector is set to -- @SERVER_TIMESTAMP@, and @NEVER@ when it is set to @PRODUCER_TIMESTAMP@. -- -- 'displayFragmentTimestamp', 'getHLSStreamingSessionURL_displayFragmentTimestamp' - Specifies when the fragment start timestamps should be included in the -- HLS media playlist. Typically, media players report the playhead -- position as a time relative to the start of the first fragment in the -- playback session. However, when the start timestamps are included in the -- HLS media playlist, some media players might report the current playhead -- as an absolute time based on the fragment timestamps. This can be useful -- for creating a playback experience that shows viewers the wall-clock -- time of the media. -- -- The default is @NEVER@. When HLSFragmentSelector is @SERVER_TIMESTAMP@, -- the timestamps will be the server start timestamps. Similarly, when -- HLSFragmentSelector is @PRODUCER_TIMESTAMP@, the timestamps will be the -- producer start timestamps. -- -- 'expires', 'getHLSStreamingSessionURL_expires' - The time in seconds until the requested session expires. This value can -- be between 300 (5 minutes) and 43200 (12 hours). -- -- When a session expires, no new calls to @GetHLSMasterPlaylist@, -- @GetHLSMediaPlaylist@, @GetMP4InitFragment@, @GetMP4MediaFragment@, or -- @GetTSFragment@ can be made for that session. -- -- The default is 300 (5 minutes). -- -- 'hLSFragmentSelector', 'getHLSStreamingSessionURL_hLSFragmentSelector' - The time range of the requested fragment and the source of the -- timestamps. -- -- This parameter is required if @PlaybackMode@ is @ON_DEMAND@ or -- @LIVE_REPLAY@. This parameter is optional if PlaybackMode is @LIVE@. If -- @PlaybackMode@ is @LIVE@, the @FragmentSelectorType@ can be set, but the -- @TimestampRange@ should not be set. If @PlaybackMode@ is @ON_DEMAND@ or -- @LIVE_REPLAY@, both @FragmentSelectorType@ and @TimestampRange@ must be -- set. -- -- 'maxMediaPlaylistFragmentResults', 'getHLSStreamingSessionURL_maxMediaPlaylistFragmentResults' - The maximum number of fragments that are returned in the HLS media -- playlists. -- -- When the @PlaybackMode@ is @LIVE@, the most recent fragments are -- returned up to this value. When the @PlaybackMode@ is @ON_DEMAND@, the -- oldest fragments are returned, up to this maximum number. -- -- When there are a higher number of fragments available in a live HLS -- media playlist, video players often buffer content before starting -- playback. Increasing the buffer size increases the playback latency, but -- it decreases the likelihood that rebuffering will occur during playback. -- We recommend that a live HLS media playlist have a minimum of 3 -- fragments and a maximum of 10 fragments. -- -- The default is 5 fragments if @PlaybackMode@ is @LIVE@ or @LIVE_REPLAY@, -- and 1,000 if @PlaybackMode@ is @ON_DEMAND@. -- -- The maximum value of 5,000 fragments corresponds to more than 80 minutes -- of video on streams with 1-second fragments, and more than 13 hours of -- video on streams with 10-second fragments. -- -- 'playbackMode', 'getHLSStreamingSessionURL_playbackMode' - Whether to retrieve live, live replay, or archived, on-demand data. -- -- Features of the three types of sessions include the following: -- -- - __@LIVE@__ : For sessions of this type, the HLS media playlist is -- continually updated with the latest fragments as they become -- available. We recommend that the media player retrieve a new -- playlist on a one-second interval. When this type of session is -- played in a media player, the user interface typically displays a -- \"live\" notification, with no scrubber control for choosing the -- position in the playback window to display. -- -- In @LIVE@ mode, the newest available fragments are included in an -- HLS media playlist, even if there is a gap between fragments (that -- is, if a fragment is missing). A gap like this might cause a media -- player to halt or cause a jump in playback. In this mode, fragments -- are not added to the HLS media playlist if they are older than the -- newest fragment in the playlist. If the missing fragment becomes -- available after a subsequent fragment is added to the playlist, the -- older fragment is not added, and the gap is not filled. -- -- - __@LIVE_REPLAY@__ : For sessions of this type, the HLS media -- playlist is updated similarly to how it is updated for @LIVE@ mode -- except that it starts by including fragments from a given start -- time. Instead of fragments being added as they are ingested, -- fragments are added as the duration of the next fragment elapses. -- For example, if the fragments in the session are two seconds long, -- then a new fragment is added to the media playlist every two -- seconds. This mode is useful to be able to start playback from when -- an event is detected and continue live streaming media that has not -- yet been ingested as of the time of the session creation. This mode -- is also useful to stream previously archived media without being -- limited by the 1,000 fragment limit in the @ON_DEMAND@ mode. -- -- - __@ON_DEMAND@__ : For sessions of this type, the HLS media playlist -- contains all the fragments for the session, up to the number that is -- specified in @MaxMediaPlaylistFragmentResults@. The playlist must be -- retrieved only once for each session. When this type of session is -- played in a media player, the user interface typically displays a -- scrubber control for choosing the position in the playback window to -- display. -- -- In all playback modes, if @FragmentSelectorType@ is -- @PRODUCER_TIMESTAMP@, and if there are multiple fragments with the same -- start timestamp, the fragment that has the largest fragment number (that -- is, the newest fragment) is included in the HLS media playlist. The -- other fragments are not included. Fragments that have different -- timestamps but have overlapping durations are still included in the HLS -- media playlist. This can lead to unexpected behavior in the media -- player. -- -- The default is @LIVE@. -- -- 'streamARN', 'getHLSStreamingSessionURL_streamARN' - The Amazon Resource Name (ARN) of the stream for which to retrieve the -- HLS master playlist URL. -- -- You must specify either the @StreamName@ or the @StreamARN@. -- -- 'streamName', 'getHLSStreamingSessionURL_streamName' - The name of the stream for which to retrieve the HLS master playlist -- URL. -- -- You must specify either the @StreamName@ or the @StreamARN@. newGetHLSStreamingSessionURL :: GetHLSStreamingSessionURL newGetHLSStreamingSessionURL :: GetHLSStreamingSessionURL newGetHLSStreamingSessionURL = GetHLSStreamingSessionURL' { $sel:containerFormat:GetHLSStreamingSessionURL' :: Maybe ContainerFormat containerFormat = forall a. Maybe a Prelude.Nothing, $sel:discontinuityMode:GetHLSStreamingSessionURL' :: Maybe HLSDiscontinuityMode discontinuityMode = forall a. Maybe a Prelude.Nothing, $sel:displayFragmentTimestamp:GetHLSStreamingSessionURL' :: Maybe HLSDisplayFragmentTimestamp displayFragmentTimestamp = forall a. Maybe a Prelude.Nothing, $sel:expires:GetHLSStreamingSessionURL' :: Maybe Natural expires = forall a. Maybe a Prelude.Nothing, $sel:hLSFragmentSelector:GetHLSStreamingSessionURL' :: Maybe HLSFragmentSelector hLSFragmentSelector = forall a. Maybe a Prelude.Nothing, $sel:maxMediaPlaylistFragmentResults:GetHLSStreamingSessionURL' :: Maybe Natural maxMediaPlaylistFragmentResults = forall a. Maybe a Prelude.Nothing, $sel:playbackMode:GetHLSStreamingSessionURL' :: Maybe HLSPlaybackMode playbackMode = forall a. Maybe a Prelude.Nothing, $sel:streamARN:GetHLSStreamingSessionURL' :: Maybe Text streamARN = forall a. Maybe a Prelude.Nothing, $sel:streamName:GetHLSStreamingSessionURL' :: Maybe Text streamName = forall a. Maybe a Prelude.Nothing } -- | Specifies which format should be used for packaging the media. -- Specifying the @FRAGMENTED_MP4@ container format packages the media into -- MP4 fragments (fMP4 or CMAF). This is the recommended packaging because -- there is minimal packaging overhead. The other container format option -- is @MPEG_TS@. HLS has supported MPEG TS chunks since it was released and -- is sometimes the only supported packaging on older HLS players. MPEG TS -- typically has a 5-25 percent packaging overhead. This means MPEG TS -- typically requires 5-25 percent more bandwidth and cost than fMP4. -- -- The default is @FRAGMENTED_MP4@. getHLSStreamingSessionURL_containerFormat :: Lens.Lens' GetHLSStreamingSessionURL (Prelude.Maybe ContainerFormat) getHLSStreamingSessionURL_containerFormat :: Lens' GetHLSStreamingSessionURL (Maybe ContainerFormat) getHLSStreamingSessionURL_containerFormat = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\GetHLSStreamingSessionURL' {Maybe ContainerFormat containerFormat :: Maybe ContainerFormat $sel:containerFormat:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe ContainerFormat containerFormat} -> Maybe ContainerFormat containerFormat) (\s :: GetHLSStreamingSessionURL s@GetHLSStreamingSessionURL' {} Maybe ContainerFormat a -> GetHLSStreamingSessionURL s {$sel:containerFormat:GetHLSStreamingSessionURL' :: Maybe ContainerFormat containerFormat = Maybe ContainerFormat a} :: GetHLSStreamingSessionURL) -- | Specifies when flags marking discontinuities between fragments are added -- to the media playlists. -- -- Media players typically build a timeline of media content to play, based -- on the timestamps of each fragment. This means that if there is any -- overlap or gap between fragments (as is typical if HLSFragmentSelector -- is set to @SERVER_TIMESTAMP@), the media player timeline will also have -- small gaps between fragments in some places, and will overwrite frames -- in other places. Gaps in the media player timeline can cause playback to -- stall and overlaps can cause playback to be jittery. When there are -- discontinuity flags between fragments, the media player is expected to -- reset the timeline, resulting in the next fragment being played -- immediately after the previous fragment. -- -- The following modes are supported: -- -- - @ALWAYS@: a discontinuity marker is placed between every fragment in -- the HLS media playlist. It is recommended to use a value of @ALWAYS@ -- if the fragment timestamps are not accurate. -- -- - @NEVER@: no discontinuity markers are placed anywhere. It is -- recommended to use a value of @NEVER@ to ensure the media player -- timeline most accurately maps to the producer timestamps. -- -- - @ON_DISCONTINUITY@: a discontinuity marker is placed between -- fragments that have a gap or overlap of more than 50 milliseconds. -- For most playback scenarios, it is recommended to use a value of -- @ON_DISCONTINUITY@ so that the media player timeline is only reset -- when there is a significant issue with the media timeline (e.g. a -- missing fragment). -- -- The default is @ALWAYS@ when HLSFragmentSelector is set to -- @SERVER_TIMESTAMP@, and @NEVER@ when it is set to @PRODUCER_TIMESTAMP@. getHLSStreamingSessionURL_discontinuityMode :: Lens.Lens' GetHLSStreamingSessionURL (Prelude.Maybe HLSDiscontinuityMode) getHLSStreamingSessionURL_discontinuityMode :: Lens' GetHLSStreamingSessionURL (Maybe HLSDiscontinuityMode) getHLSStreamingSessionURL_discontinuityMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\GetHLSStreamingSessionURL' {Maybe HLSDiscontinuityMode discontinuityMode :: Maybe HLSDiscontinuityMode $sel:discontinuityMode:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSDiscontinuityMode discontinuityMode} -> Maybe HLSDiscontinuityMode discontinuityMode) (\s :: GetHLSStreamingSessionURL s@GetHLSStreamingSessionURL' {} Maybe HLSDiscontinuityMode a -> GetHLSStreamingSessionURL s {$sel:discontinuityMode:GetHLSStreamingSessionURL' :: Maybe HLSDiscontinuityMode discontinuityMode = Maybe HLSDiscontinuityMode a} :: GetHLSStreamingSessionURL) -- | Specifies when the fragment start timestamps should be included in the -- HLS media playlist. Typically, media players report the playhead -- position as a time relative to the start of the first fragment in the -- playback session. However, when the start timestamps are included in the -- HLS media playlist, some media players might report the current playhead -- as an absolute time based on the fragment timestamps. This can be useful -- for creating a playback experience that shows viewers the wall-clock -- time of the media. -- -- The default is @NEVER@. When HLSFragmentSelector is @SERVER_TIMESTAMP@, -- the timestamps will be the server start timestamps. Similarly, when -- HLSFragmentSelector is @PRODUCER_TIMESTAMP@, the timestamps will be the -- producer start timestamps. getHLSStreamingSessionURL_displayFragmentTimestamp :: Lens.Lens' GetHLSStreamingSessionURL (Prelude.Maybe HLSDisplayFragmentTimestamp) getHLSStreamingSessionURL_displayFragmentTimestamp :: Lens' GetHLSStreamingSessionURL (Maybe HLSDisplayFragmentTimestamp) getHLSStreamingSessionURL_displayFragmentTimestamp = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\GetHLSStreamingSessionURL' {Maybe HLSDisplayFragmentTimestamp displayFragmentTimestamp :: Maybe HLSDisplayFragmentTimestamp $sel:displayFragmentTimestamp:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSDisplayFragmentTimestamp displayFragmentTimestamp} -> Maybe HLSDisplayFragmentTimestamp displayFragmentTimestamp) (\s :: GetHLSStreamingSessionURL s@GetHLSStreamingSessionURL' {} Maybe HLSDisplayFragmentTimestamp a -> GetHLSStreamingSessionURL s {$sel:displayFragmentTimestamp:GetHLSStreamingSessionURL' :: Maybe HLSDisplayFragmentTimestamp displayFragmentTimestamp = Maybe HLSDisplayFragmentTimestamp a} :: GetHLSStreamingSessionURL) -- | The time in seconds until the requested session expires. This value can -- be between 300 (5 minutes) and 43200 (12 hours). -- -- When a session expires, no new calls to @GetHLSMasterPlaylist@, -- @GetHLSMediaPlaylist@, @GetMP4InitFragment@, @GetMP4MediaFragment@, or -- @GetTSFragment@ can be made for that session. -- -- The default is 300 (5 minutes). getHLSStreamingSessionURL_expires :: Lens.Lens' GetHLSStreamingSessionURL (Prelude.Maybe Prelude.Natural) getHLSStreamingSessionURL_expires :: Lens' GetHLSStreamingSessionURL (Maybe Natural) getHLSStreamingSessionURL_expires = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\GetHLSStreamingSessionURL' {Maybe Natural expires :: Maybe Natural $sel:expires:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Natural expires} -> Maybe Natural expires) (\s :: GetHLSStreamingSessionURL s@GetHLSStreamingSessionURL' {} Maybe Natural a -> GetHLSStreamingSessionURL s {$sel:expires:GetHLSStreamingSessionURL' :: Maybe Natural expires = Maybe Natural a} :: GetHLSStreamingSessionURL) -- | The time range of the requested fragment and the source of the -- timestamps. -- -- This parameter is required if @PlaybackMode@ is @ON_DEMAND@ or -- @LIVE_REPLAY@. This parameter is optional if PlaybackMode is @LIVE@. If -- @PlaybackMode@ is @LIVE@, the @FragmentSelectorType@ can be set, but the -- @TimestampRange@ should not be set. If @PlaybackMode@ is @ON_DEMAND@ or -- @LIVE_REPLAY@, both @FragmentSelectorType@ and @TimestampRange@ must be -- set. getHLSStreamingSessionURL_hLSFragmentSelector :: Lens.Lens' GetHLSStreamingSessionURL (Prelude.Maybe HLSFragmentSelector) getHLSStreamingSessionURL_hLSFragmentSelector :: Lens' GetHLSStreamingSessionURL (Maybe HLSFragmentSelector) getHLSStreamingSessionURL_hLSFragmentSelector = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\GetHLSStreamingSessionURL' {Maybe HLSFragmentSelector hLSFragmentSelector :: Maybe HLSFragmentSelector $sel:hLSFragmentSelector:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSFragmentSelector hLSFragmentSelector} -> Maybe HLSFragmentSelector hLSFragmentSelector) (\s :: GetHLSStreamingSessionURL s@GetHLSStreamingSessionURL' {} Maybe HLSFragmentSelector a -> GetHLSStreamingSessionURL s {$sel:hLSFragmentSelector:GetHLSStreamingSessionURL' :: Maybe HLSFragmentSelector hLSFragmentSelector = Maybe HLSFragmentSelector a} :: GetHLSStreamingSessionURL) -- | The maximum number of fragments that are returned in the HLS media -- playlists. -- -- When the @PlaybackMode@ is @LIVE@, the most recent fragments are -- returned up to this value. When the @PlaybackMode@ is @ON_DEMAND@, the -- oldest fragments are returned, up to this maximum number. -- -- When there are a higher number of fragments available in a live HLS -- media playlist, video players often buffer content before starting -- playback. Increasing the buffer size increases the playback latency, but -- it decreases the likelihood that rebuffering will occur during playback. -- We recommend that a live HLS media playlist have a minimum of 3 -- fragments and a maximum of 10 fragments. -- -- The default is 5 fragments if @PlaybackMode@ is @LIVE@ or @LIVE_REPLAY@, -- and 1,000 if @PlaybackMode@ is @ON_DEMAND@. -- -- The maximum value of 5,000 fragments corresponds to more than 80 minutes -- of video on streams with 1-second fragments, and more than 13 hours of -- video on streams with 10-second fragments. getHLSStreamingSessionURL_maxMediaPlaylistFragmentResults :: Lens.Lens' GetHLSStreamingSessionURL (Prelude.Maybe Prelude.Natural) getHLSStreamingSessionURL_maxMediaPlaylistFragmentResults :: Lens' GetHLSStreamingSessionURL (Maybe Natural) getHLSStreamingSessionURL_maxMediaPlaylistFragmentResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\GetHLSStreamingSessionURL' {Maybe Natural maxMediaPlaylistFragmentResults :: Maybe Natural $sel:maxMediaPlaylistFragmentResults:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Natural maxMediaPlaylistFragmentResults} -> Maybe Natural maxMediaPlaylistFragmentResults) (\s :: GetHLSStreamingSessionURL s@GetHLSStreamingSessionURL' {} Maybe Natural a -> GetHLSStreamingSessionURL s {$sel:maxMediaPlaylistFragmentResults:GetHLSStreamingSessionURL' :: Maybe Natural maxMediaPlaylistFragmentResults = Maybe Natural a} :: GetHLSStreamingSessionURL) -- | Whether to retrieve live, live replay, or archived, on-demand data. -- -- Features of the three types of sessions include the following: -- -- - __@LIVE@__ : For sessions of this type, the HLS media playlist is -- continually updated with the latest fragments as they become -- available. We recommend that the media player retrieve a new -- playlist on a one-second interval. When this type of session is -- played in a media player, the user interface typically displays a -- \"live\" notification, with no scrubber control for choosing the -- position in the playback window to display. -- -- In @LIVE@ mode, the newest available fragments are included in an -- HLS media playlist, even if there is a gap between fragments (that -- is, if a fragment is missing). A gap like this might cause a media -- player to halt or cause a jump in playback. In this mode, fragments -- are not added to the HLS media playlist if they are older than the -- newest fragment in the playlist. If the missing fragment becomes -- available after a subsequent fragment is added to the playlist, the -- older fragment is not added, and the gap is not filled. -- -- - __@LIVE_REPLAY@__ : For sessions of this type, the HLS media -- playlist is updated similarly to how it is updated for @LIVE@ mode -- except that it starts by including fragments from a given start -- time. Instead of fragments being added as they are ingested, -- fragments are added as the duration of the next fragment elapses. -- For example, if the fragments in the session are two seconds long, -- then a new fragment is added to the media playlist every two -- seconds. This mode is useful to be able to start playback from when -- an event is detected and continue live streaming media that has not -- yet been ingested as of the time of the session creation. This mode -- is also useful to stream previously archived media without being -- limited by the 1,000 fragment limit in the @ON_DEMAND@ mode. -- -- - __@ON_DEMAND@__ : For sessions of this type, the HLS media playlist -- contains all the fragments for the session, up to the number that is -- specified in @MaxMediaPlaylistFragmentResults@. The playlist must be -- retrieved only once for each session. When this type of session is -- played in a media player, the user interface typically displays a -- scrubber control for choosing the position in the playback window to -- display. -- -- In all playback modes, if @FragmentSelectorType@ is -- @PRODUCER_TIMESTAMP@, and if there are multiple fragments with the same -- start timestamp, the fragment that has the largest fragment number (that -- is, the newest fragment) is included in the HLS media playlist. The -- other fragments are not included. Fragments that have different -- timestamps but have overlapping durations are still included in the HLS -- media playlist. This can lead to unexpected behavior in the media -- player. -- -- The default is @LIVE@. getHLSStreamingSessionURL_playbackMode :: Lens.Lens' GetHLSStreamingSessionURL (Prelude.Maybe HLSPlaybackMode) getHLSStreamingSessionURL_playbackMode :: Lens' GetHLSStreamingSessionURL (Maybe HLSPlaybackMode) getHLSStreamingSessionURL_playbackMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\GetHLSStreamingSessionURL' {Maybe HLSPlaybackMode playbackMode :: Maybe HLSPlaybackMode $sel:playbackMode:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSPlaybackMode playbackMode} -> Maybe HLSPlaybackMode playbackMode) (\s :: GetHLSStreamingSessionURL s@GetHLSStreamingSessionURL' {} Maybe HLSPlaybackMode a -> GetHLSStreamingSessionURL s {$sel:playbackMode:GetHLSStreamingSessionURL' :: Maybe HLSPlaybackMode playbackMode = Maybe HLSPlaybackMode a} :: GetHLSStreamingSessionURL) -- | The Amazon Resource Name (ARN) of the stream for which to retrieve the -- HLS master playlist URL. -- -- You must specify either the @StreamName@ or the @StreamARN@. getHLSStreamingSessionURL_streamARN :: Lens.Lens' GetHLSStreamingSessionURL (Prelude.Maybe Prelude.Text) getHLSStreamingSessionURL_streamARN :: Lens' GetHLSStreamingSessionURL (Maybe Text) getHLSStreamingSessionURL_streamARN = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\GetHLSStreamingSessionURL' {Maybe Text streamARN :: Maybe Text $sel:streamARN:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Text streamARN} -> Maybe Text streamARN) (\s :: GetHLSStreamingSessionURL s@GetHLSStreamingSessionURL' {} Maybe Text a -> GetHLSStreamingSessionURL s {$sel:streamARN:GetHLSStreamingSessionURL' :: Maybe Text streamARN = Maybe Text a} :: GetHLSStreamingSessionURL) -- | The name of the stream for which to retrieve the HLS master playlist -- URL. -- -- You must specify either the @StreamName@ or the @StreamARN@. getHLSStreamingSessionURL_streamName :: Lens.Lens' GetHLSStreamingSessionURL (Prelude.Maybe Prelude.Text) getHLSStreamingSessionURL_streamName :: Lens' GetHLSStreamingSessionURL (Maybe Text) getHLSStreamingSessionURL_streamName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\GetHLSStreamingSessionURL' {Maybe Text streamName :: Maybe Text $sel:streamName:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Text streamName} -> Maybe Text streamName) (\s :: GetHLSStreamingSessionURL s@GetHLSStreamingSessionURL' {} Maybe Text a -> GetHLSStreamingSessionURL s {$sel:streamName:GetHLSStreamingSessionURL' :: Maybe Text streamName = Maybe Text a} :: GetHLSStreamingSessionURL) instance Core.AWSRequest GetHLSStreamingSessionURL where type AWSResponse GetHLSStreamingSessionURL = GetHLSStreamingSessionURLResponse request :: (Service -> Service) -> GetHLSStreamingSessionURL -> Request GetHLSStreamingSessionURL request Service -> Service overrides = forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a Request.postJSON (Service -> Service overrides Service defaultService) response :: forall (m :: * -> *). MonadResource m => (ByteStringLazy -> IO ByteStringLazy) -> Service -> Proxy GetHLSStreamingSessionURL -> ClientResponse ClientBody -> m (Either Error (ClientResponse (AWSResponse GetHLSStreamingSessionURL))) response = forall (m :: * -> *) a. MonadResource m => (Int -> ResponseHeaders -> Object -> Either String (AWSResponse a)) -> (ByteStringLazy -> IO ByteStringLazy) -> Service -> Proxy a -> ClientResponse ClientBody -> m (Either Error (ClientResponse (AWSResponse a))) Response.receiveJSON ( \Int s ResponseHeaders h Object x -> Maybe Text -> Int -> GetHLSStreamingSessionURLResponse GetHLSStreamingSessionURLResponse' forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> (Object x forall a. FromJSON a => Object -> Key -> Either String (Maybe a) Data..?> Key "HLSStreamingSessionURL") forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a Prelude.pure (forall a. Enum a => a -> Int Prelude.fromEnum Int s)) ) instance Prelude.Hashable GetHLSStreamingSessionURL where hashWithSalt :: Int -> GetHLSStreamingSessionURL -> Int hashWithSalt Int _salt GetHLSStreamingSessionURL' {Maybe Natural Maybe Text Maybe ContainerFormat Maybe HLSDiscontinuityMode Maybe HLSDisplayFragmentTimestamp Maybe HLSPlaybackMode Maybe HLSFragmentSelector streamName :: Maybe Text streamARN :: Maybe Text playbackMode :: Maybe HLSPlaybackMode maxMediaPlaylistFragmentResults :: Maybe Natural hLSFragmentSelector :: Maybe HLSFragmentSelector expires :: Maybe Natural displayFragmentTimestamp :: Maybe HLSDisplayFragmentTimestamp discontinuityMode :: Maybe HLSDiscontinuityMode containerFormat :: Maybe ContainerFormat $sel:streamName:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Text $sel:streamARN:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Text $sel:playbackMode:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSPlaybackMode $sel:maxMediaPlaylistFragmentResults:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Natural $sel:hLSFragmentSelector:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSFragmentSelector $sel:expires:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Natural $sel:displayFragmentTimestamp:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSDisplayFragmentTimestamp $sel:discontinuityMode:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSDiscontinuityMode $sel:containerFormat:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe ContainerFormat ..} = Int _salt forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe ContainerFormat containerFormat forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe HLSDiscontinuityMode discontinuityMode forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe HLSDisplayFragmentTimestamp displayFragmentTimestamp forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe Natural expires forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe HLSFragmentSelector hLSFragmentSelector forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe Natural maxMediaPlaylistFragmentResults forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe HLSPlaybackMode playbackMode forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe Text streamARN forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe Text streamName instance Prelude.NFData GetHLSStreamingSessionURL where rnf :: GetHLSStreamingSessionURL -> () rnf GetHLSStreamingSessionURL' {Maybe Natural Maybe Text Maybe ContainerFormat Maybe HLSDiscontinuityMode Maybe HLSDisplayFragmentTimestamp Maybe HLSPlaybackMode Maybe HLSFragmentSelector streamName :: Maybe Text streamARN :: Maybe Text playbackMode :: Maybe HLSPlaybackMode maxMediaPlaylistFragmentResults :: Maybe Natural hLSFragmentSelector :: Maybe HLSFragmentSelector expires :: Maybe Natural displayFragmentTimestamp :: Maybe HLSDisplayFragmentTimestamp discontinuityMode :: Maybe HLSDiscontinuityMode containerFormat :: Maybe ContainerFormat $sel:streamName:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Text $sel:streamARN:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Text $sel:playbackMode:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSPlaybackMode $sel:maxMediaPlaylistFragmentResults:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Natural $sel:hLSFragmentSelector:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSFragmentSelector $sel:expires:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Natural $sel:displayFragmentTimestamp:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSDisplayFragmentTimestamp $sel:discontinuityMode:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSDiscontinuityMode $sel:containerFormat:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe ContainerFormat ..} = forall a. NFData a => a -> () Prelude.rnf Maybe ContainerFormat containerFormat seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Maybe HLSDiscontinuityMode discontinuityMode seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Maybe HLSDisplayFragmentTimestamp displayFragmentTimestamp seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Maybe Natural expires seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Maybe HLSFragmentSelector hLSFragmentSelector seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Maybe Natural maxMediaPlaylistFragmentResults seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Maybe HLSPlaybackMode playbackMode seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Maybe Text streamARN seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Maybe Text streamName instance Data.ToHeaders GetHLSStreamingSessionURL where toHeaders :: GetHLSStreamingSessionURL -> ResponseHeaders toHeaders = forall a b. a -> b -> a Prelude.const forall a. Monoid a => a Prelude.mempty instance Data.ToJSON GetHLSStreamingSessionURL where toJSON :: GetHLSStreamingSessionURL -> Value toJSON GetHLSStreamingSessionURL' {Maybe Natural Maybe Text Maybe ContainerFormat Maybe HLSDiscontinuityMode Maybe HLSDisplayFragmentTimestamp Maybe HLSPlaybackMode Maybe HLSFragmentSelector streamName :: Maybe Text streamARN :: Maybe Text playbackMode :: Maybe HLSPlaybackMode maxMediaPlaylistFragmentResults :: Maybe Natural hLSFragmentSelector :: Maybe HLSFragmentSelector expires :: Maybe Natural displayFragmentTimestamp :: Maybe HLSDisplayFragmentTimestamp discontinuityMode :: Maybe HLSDiscontinuityMode containerFormat :: Maybe ContainerFormat $sel:streamName:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Text $sel:streamARN:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Text $sel:playbackMode:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSPlaybackMode $sel:maxMediaPlaylistFragmentResults:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Natural $sel:hLSFragmentSelector:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSFragmentSelector $sel:expires:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe Natural $sel:displayFragmentTimestamp:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSDisplayFragmentTimestamp $sel:discontinuityMode:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe HLSDiscontinuityMode $sel:containerFormat:GetHLSStreamingSessionURL' :: GetHLSStreamingSessionURL -> Maybe ContainerFormat ..} = [Pair] -> Value Data.object ( forall a. [Maybe a] -> [a] Prelude.catMaybes [ (Key "ContainerFormat" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe ContainerFormat containerFormat, (Key "DiscontinuityMode" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe HLSDiscontinuityMode discontinuityMode, (Key "DisplayFragmentTimestamp" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe HLSDisplayFragmentTimestamp displayFragmentTimestamp, (Key "Expires" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe Natural expires, (Key "HLSFragmentSelector" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe HLSFragmentSelector hLSFragmentSelector, (Key "MaxMediaPlaylistFragmentResults" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe Natural maxMediaPlaylistFragmentResults, (Key "PlaybackMode" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe HLSPlaybackMode playbackMode, (Key "StreamARN" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe Text streamARN, (Key "StreamName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe Text streamName ] ) instance Data.ToPath GetHLSStreamingSessionURL where toPath :: GetHLSStreamingSessionURL -> ByteString toPath = forall a b. a -> b -> a Prelude.const ByteString "/getHLSStreamingSessionURL" instance Data.ToQuery GetHLSStreamingSessionURL where toQuery :: GetHLSStreamingSessionURL -> QueryString toQuery = forall a b. a -> b -> a Prelude.const forall a. Monoid a => a Prelude.mempty -- | /See:/ 'newGetHLSStreamingSessionURLResponse' smart constructor. data GetHLSStreamingSessionURLResponse = GetHLSStreamingSessionURLResponse' { -- | The URL (containing the session token) that a media player can use to -- retrieve the HLS master playlist. GetHLSStreamingSessionURLResponse -> Maybe Text hLSStreamingSessionURL :: Prelude.Maybe Prelude.Text, -- | The response's http status code. GetHLSStreamingSessionURLResponse -> Int httpStatus :: Prelude.Int } deriving (GetHLSStreamingSessionURLResponse -> GetHLSStreamingSessionURLResponse -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: GetHLSStreamingSessionURLResponse -> GetHLSStreamingSessionURLResponse -> Bool $c/= :: GetHLSStreamingSessionURLResponse -> GetHLSStreamingSessionURLResponse -> Bool == :: GetHLSStreamingSessionURLResponse -> GetHLSStreamingSessionURLResponse -> Bool $c== :: GetHLSStreamingSessionURLResponse -> GetHLSStreamingSessionURLResponse -> Bool Prelude.Eq, ReadPrec [GetHLSStreamingSessionURLResponse] ReadPrec GetHLSStreamingSessionURLResponse Int -> ReadS GetHLSStreamingSessionURLResponse ReadS [GetHLSStreamingSessionURLResponse] forall a. (Int -> ReadS a) -> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a readListPrec :: ReadPrec [GetHLSStreamingSessionURLResponse] $creadListPrec :: ReadPrec [GetHLSStreamingSessionURLResponse] readPrec :: ReadPrec GetHLSStreamingSessionURLResponse $creadPrec :: ReadPrec GetHLSStreamingSessionURLResponse readList :: ReadS [GetHLSStreamingSessionURLResponse] $creadList :: ReadS [GetHLSStreamingSessionURLResponse] readsPrec :: Int -> ReadS GetHLSStreamingSessionURLResponse $creadsPrec :: Int -> ReadS GetHLSStreamingSessionURLResponse Prelude.Read, Int -> GetHLSStreamingSessionURLResponse -> ShowS [GetHLSStreamingSessionURLResponse] -> ShowS GetHLSStreamingSessionURLResponse -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [GetHLSStreamingSessionURLResponse] -> ShowS $cshowList :: [GetHLSStreamingSessionURLResponse] -> ShowS show :: GetHLSStreamingSessionURLResponse -> String $cshow :: GetHLSStreamingSessionURLResponse -> String showsPrec :: Int -> GetHLSStreamingSessionURLResponse -> ShowS $cshowsPrec :: Int -> GetHLSStreamingSessionURLResponse -> ShowS Prelude.Show, forall x. Rep GetHLSStreamingSessionURLResponse x -> GetHLSStreamingSessionURLResponse forall x. GetHLSStreamingSessionURLResponse -> Rep GetHLSStreamingSessionURLResponse x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep GetHLSStreamingSessionURLResponse x -> GetHLSStreamingSessionURLResponse $cfrom :: forall x. GetHLSStreamingSessionURLResponse -> Rep GetHLSStreamingSessionURLResponse x Prelude.Generic) -- | -- Create a value of 'GetHLSStreamingSessionURLResponse' 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: -- -- 'hLSStreamingSessionURL', 'getHLSStreamingSessionURLResponse_hLSStreamingSessionURL' - The URL (containing the session token) that a media player can use to -- retrieve the HLS master playlist. -- -- 'httpStatus', 'getHLSStreamingSessionURLResponse_httpStatus' - The response's http status code. newGetHLSStreamingSessionURLResponse :: -- | 'httpStatus' Prelude.Int -> GetHLSStreamingSessionURLResponse newGetHLSStreamingSessionURLResponse :: Int -> GetHLSStreamingSessionURLResponse newGetHLSStreamingSessionURLResponse Int pHttpStatus_ = GetHLSStreamingSessionURLResponse' { $sel:hLSStreamingSessionURL:GetHLSStreamingSessionURLResponse' :: Maybe Text hLSStreamingSessionURL = forall a. Maybe a Prelude.Nothing, $sel:httpStatus:GetHLSStreamingSessionURLResponse' :: Int httpStatus = Int pHttpStatus_ } -- | The URL (containing the session token) that a media player can use to -- retrieve the HLS master playlist. getHLSStreamingSessionURLResponse_hLSStreamingSessionURL :: Lens.Lens' GetHLSStreamingSessionURLResponse (Prelude.Maybe Prelude.Text) getHLSStreamingSessionURLResponse_hLSStreamingSessionURL :: Lens' GetHLSStreamingSessionURLResponse (Maybe Text) getHLSStreamingSessionURLResponse_hLSStreamingSessionURL = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\GetHLSStreamingSessionURLResponse' {Maybe Text hLSStreamingSessionURL :: Maybe Text $sel:hLSStreamingSessionURL:GetHLSStreamingSessionURLResponse' :: GetHLSStreamingSessionURLResponse -> Maybe Text hLSStreamingSessionURL} -> Maybe Text hLSStreamingSessionURL) (\s :: GetHLSStreamingSessionURLResponse s@GetHLSStreamingSessionURLResponse' {} Maybe Text a -> GetHLSStreamingSessionURLResponse s {$sel:hLSStreamingSessionURL:GetHLSStreamingSessionURLResponse' :: Maybe Text hLSStreamingSessionURL = Maybe Text a} :: GetHLSStreamingSessionURLResponse) -- | The response's http status code. getHLSStreamingSessionURLResponse_httpStatus :: Lens.Lens' GetHLSStreamingSessionURLResponse Prelude.Int getHLSStreamingSessionURLResponse_httpStatus :: Lens' GetHLSStreamingSessionURLResponse Int getHLSStreamingSessionURLResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\GetHLSStreamingSessionURLResponse' {Int httpStatus :: Int $sel:httpStatus:GetHLSStreamingSessionURLResponse' :: GetHLSStreamingSessionURLResponse -> Int httpStatus} -> Int httpStatus) (\s :: GetHLSStreamingSessionURLResponse s@GetHLSStreamingSessionURLResponse' {} Int a -> GetHLSStreamingSessionURLResponse s {$sel:httpStatus:GetHLSStreamingSessionURLResponse' :: Int httpStatus = Int a} :: GetHLSStreamingSessionURLResponse) instance Prelude.NFData GetHLSStreamingSessionURLResponse where rnf :: GetHLSStreamingSessionURLResponse -> () rnf GetHLSStreamingSessionURLResponse' {Int Maybe Text httpStatus :: Int hLSStreamingSessionURL :: Maybe Text $sel:httpStatus:GetHLSStreamingSessionURLResponse' :: GetHLSStreamingSessionURLResponse -> Int $sel:hLSStreamingSessionURL:GetHLSStreamingSessionURLResponse' :: GetHLSStreamingSessionURLResponse -> Maybe Text ..} = forall a. NFData a => a -> () Prelude.rnf Maybe Text hLSStreamingSessionURL seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Int httpStatus