{-# 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 #-}
module Amazonka.AppStream.CreateStreamingURL
(
CreateStreamingURL (..),
newCreateStreamingURL,
createStreamingURL_applicationId,
createStreamingURL_sessionContext,
createStreamingURL_validity,
createStreamingURL_stackName,
createStreamingURL_fleetName,
createStreamingURL_userId,
CreateStreamingURLResponse (..),
newCreateStreamingURLResponse,
createStreamingURLResponse_expires,
createStreamingURLResponse_streamingURL,
createStreamingURLResponse_httpStatus,
)
where
import Amazonka.AppStream.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateStreamingURL = CreateStreamingURL'
{
CreateStreamingURL -> Maybe Text
applicationId :: Prelude.Maybe Prelude.Text,
CreateStreamingURL -> Maybe Text
sessionContext :: Prelude.Maybe Prelude.Text,
CreateStreamingURL -> Maybe Integer
validity :: Prelude.Maybe Prelude.Integer,
CreateStreamingURL -> Text
stackName :: Prelude.Text,
CreateStreamingURL -> Text
fleetName :: Prelude.Text,
CreateStreamingURL -> Text
userId :: Prelude.Text
}
deriving (CreateStreamingURL -> CreateStreamingURL -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateStreamingURL -> CreateStreamingURL -> Bool
$c/= :: CreateStreamingURL -> CreateStreamingURL -> Bool
== :: CreateStreamingURL -> CreateStreamingURL -> Bool
$c== :: CreateStreamingURL -> CreateStreamingURL -> Bool
Prelude.Eq, ReadPrec [CreateStreamingURL]
ReadPrec CreateStreamingURL
Int -> ReadS CreateStreamingURL
ReadS [CreateStreamingURL]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateStreamingURL]
$creadListPrec :: ReadPrec [CreateStreamingURL]
readPrec :: ReadPrec CreateStreamingURL
$creadPrec :: ReadPrec CreateStreamingURL
readList :: ReadS [CreateStreamingURL]
$creadList :: ReadS [CreateStreamingURL]
readsPrec :: Int -> ReadS CreateStreamingURL
$creadsPrec :: Int -> ReadS CreateStreamingURL
Prelude.Read, Int -> CreateStreamingURL -> ShowS
[CreateStreamingURL] -> ShowS
CreateStreamingURL -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateStreamingURL] -> ShowS
$cshowList :: [CreateStreamingURL] -> ShowS
show :: CreateStreamingURL -> String
$cshow :: CreateStreamingURL -> String
showsPrec :: Int -> CreateStreamingURL -> ShowS
$cshowsPrec :: Int -> CreateStreamingURL -> ShowS
Prelude.Show, forall x. Rep CreateStreamingURL x -> CreateStreamingURL
forall x. CreateStreamingURL -> Rep CreateStreamingURL x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateStreamingURL x -> CreateStreamingURL
$cfrom :: forall x. CreateStreamingURL -> Rep CreateStreamingURL x
Prelude.Generic)
newCreateStreamingURL ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
CreateStreamingURL
newCreateStreamingURL :: Text -> Text -> Text -> CreateStreamingURL
newCreateStreamingURL
Text
pStackName_
Text
pFleetName_
Text
pUserId_ =
CreateStreamingURL'
{ $sel:applicationId:CreateStreamingURL' :: Maybe Text
applicationId =
forall a. Maybe a
Prelude.Nothing,
$sel:sessionContext:CreateStreamingURL' :: Maybe Text
sessionContext = forall a. Maybe a
Prelude.Nothing,
$sel:validity:CreateStreamingURL' :: Maybe Integer
validity = forall a. Maybe a
Prelude.Nothing,
$sel:stackName:CreateStreamingURL' :: Text
stackName = Text
pStackName_,
$sel:fleetName:CreateStreamingURL' :: Text
fleetName = Text
pFleetName_,
$sel:userId:CreateStreamingURL' :: Text
userId = Text
pUserId_
}
createStreamingURL_applicationId :: Lens.Lens' CreateStreamingURL (Prelude.Maybe Prelude.Text)
createStreamingURL_applicationId :: Lens' CreateStreamingURL (Maybe Text)
createStreamingURL_applicationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStreamingURL' {Maybe Text
applicationId :: Maybe Text
$sel:applicationId:CreateStreamingURL' :: CreateStreamingURL -> Maybe Text
applicationId} -> Maybe Text
applicationId) (\s :: CreateStreamingURL
s@CreateStreamingURL' {} Maybe Text
a -> CreateStreamingURL
s {$sel:applicationId:CreateStreamingURL' :: Maybe Text
applicationId = Maybe Text
a} :: CreateStreamingURL)
createStreamingURL_sessionContext :: Lens.Lens' CreateStreamingURL (Prelude.Maybe Prelude.Text)
createStreamingURL_sessionContext :: Lens' CreateStreamingURL (Maybe Text)
createStreamingURL_sessionContext = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStreamingURL' {Maybe Text
sessionContext :: Maybe Text
$sel:sessionContext:CreateStreamingURL' :: CreateStreamingURL -> Maybe Text
sessionContext} -> Maybe Text
sessionContext) (\s :: CreateStreamingURL
s@CreateStreamingURL' {} Maybe Text
a -> CreateStreamingURL
s {$sel:sessionContext:CreateStreamingURL' :: Maybe Text
sessionContext = Maybe Text
a} :: CreateStreamingURL)
createStreamingURL_validity :: Lens.Lens' CreateStreamingURL (Prelude.Maybe Prelude.Integer)
createStreamingURL_validity :: Lens' CreateStreamingURL (Maybe Integer)
createStreamingURL_validity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStreamingURL' {Maybe Integer
validity :: Maybe Integer
$sel:validity:CreateStreamingURL' :: CreateStreamingURL -> Maybe Integer
validity} -> Maybe Integer
validity) (\s :: CreateStreamingURL
s@CreateStreamingURL' {} Maybe Integer
a -> CreateStreamingURL
s {$sel:validity:CreateStreamingURL' :: Maybe Integer
validity = Maybe Integer
a} :: CreateStreamingURL)
createStreamingURL_stackName :: Lens.Lens' CreateStreamingURL Prelude.Text
createStreamingURL_stackName :: Lens' CreateStreamingURL Text
createStreamingURL_stackName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStreamingURL' {Text
stackName :: Text
$sel:stackName:CreateStreamingURL' :: CreateStreamingURL -> Text
stackName} -> Text
stackName) (\s :: CreateStreamingURL
s@CreateStreamingURL' {} Text
a -> CreateStreamingURL
s {$sel:stackName:CreateStreamingURL' :: Text
stackName = Text
a} :: CreateStreamingURL)
createStreamingURL_fleetName :: Lens.Lens' CreateStreamingURL Prelude.Text
createStreamingURL_fleetName :: Lens' CreateStreamingURL Text
createStreamingURL_fleetName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStreamingURL' {Text
fleetName :: Text
$sel:fleetName:CreateStreamingURL' :: CreateStreamingURL -> Text
fleetName} -> Text
fleetName) (\s :: CreateStreamingURL
s@CreateStreamingURL' {} Text
a -> CreateStreamingURL
s {$sel:fleetName:CreateStreamingURL' :: Text
fleetName = Text
a} :: CreateStreamingURL)
createStreamingURL_userId :: Lens.Lens' CreateStreamingURL Prelude.Text
createStreamingURL_userId :: Lens' CreateStreamingURL Text
createStreamingURL_userId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStreamingURL' {Text
userId :: Text
$sel:userId:CreateStreamingURL' :: CreateStreamingURL -> Text
userId} -> Text
userId) (\s :: CreateStreamingURL
s@CreateStreamingURL' {} Text
a -> CreateStreamingURL
s {$sel:userId:CreateStreamingURL' :: Text
userId = Text
a} :: CreateStreamingURL)
instance Core.AWSRequest CreateStreamingURL where
type
AWSResponse CreateStreamingURL =
CreateStreamingURLResponse
request :: (Service -> Service)
-> CreateStreamingURL -> Request CreateStreamingURL
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 CreateStreamingURL
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateStreamingURL)))
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 POSIX -> Maybe Text -> Int -> CreateStreamingURLResponse
CreateStreamingURLResponse'
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
"Expires")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"StreamingURL")
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 CreateStreamingURL where
hashWithSalt :: Int -> CreateStreamingURL -> Int
hashWithSalt Int
_salt CreateStreamingURL' {Maybe Integer
Maybe Text
Text
userId :: Text
fleetName :: Text
stackName :: Text
validity :: Maybe Integer
sessionContext :: Maybe Text
applicationId :: Maybe Text
$sel:userId:CreateStreamingURL' :: CreateStreamingURL -> Text
$sel:fleetName:CreateStreamingURL' :: CreateStreamingURL -> Text
$sel:stackName:CreateStreamingURL' :: CreateStreamingURL -> Text
$sel:validity:CreateStreamingURL' :: CreateStreamingURL -> Maybe Integer
$sel:sessionContext:CreateStreamingURL' :: CreateStreamingURL -> Maybe Text
$sel:applicationId:CreateStreamingURL' :: CreateStreamingURL -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
applicationId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sessionContext
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Integer
validity
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
stackName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
fleetName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userId
instance Prelude.NFData CreateStreamingURL where
rnf :: CreateStreamingURL -> ()
rnf CreateStreamingURL' {Maybe Integer
Maybe Text
Text
userId :: Text
fleetName :: Text
stackName :: Text
validity :: Maybe Integer
sessionContext :: Maybe Text
applicationId :: Maybe Text
$sel:userId:CreateStreamingURL' :: CreateStreamingURL -> Text
$sel:fleetName:CreateStreamingURL' :: CreateStreamingURL -> Text
$sel:stackName:CreateStreamingURL' :: CreateStreamingURL -> Text
$sel:validity:CreateStreamingURL' :: CreateStreamingURL -> Maybe Integer
$sel:sessionContext:CreateStreamingURL' :: CreateStreamingURL -> Maybe Text
$sel:applicationId:CreateStreamingURL' :: CreateStreamingURL -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
applicationId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sessionContext
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
validity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
stackName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
fleetName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
userId
instance Data.ToHeaders CreateStreamingURL where
toHeaders :: CreateStreamingURL -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"PhotonAdminProxyService.CreateStreamingURL" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateStreamingURL where
toJSON :: CreateStreamingURL -> Value
toJSON CreateStreamingURL' {Maybe Integer
Maybe Text
Text
userId :: Text
fleetName :: Text
stackName :: Text
validity :: Maybe Integer
sessionContext :: Maybe Text
applicationId :: Maybe Text
$sel:userId:CreateStreamingURL' :: CreateStreamingURL -> Text
$sel:fleetName:CreateStreamingURL' :: CreateStreamingURL -> Text
$sel:stackName:CreateStreamingURL' :: CreateStreamingURL -> Text
$sel:validity:CreateStreamingURL' :: CreateStreamingURL -> Maybe Integer
$sel:sessionContext:CreateStreamingURL' :: CreateStreamingURL -> Maybe Text
$sel:applicationId:CreateStreamingURL' :: CreateStreamingURL -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ApplicationId" 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
applicationId,
(Key
"SessionContext" 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
sessionContext,
(Key
"Validity" 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 Integer
validity,
forall a. a -> Maybe a
Prelude.Just (Key
"StackName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
stackName),
forall a. a -> Maybe a
Prelude.Just (Key
"FleetName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
fleetName),
forall a. a -> Maybe a
Prelude.Just (Key
"UserId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
userId)
]
)
instance Data.ToPath CreateStreamingURL where
toPath :: CreateStreamingURL -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateStreamingURL where
toQuery :: CreateStreamingURL -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateStreamingURLResponse = CreateStreamingURLResponse'
{
CreateStreamingURLResponse -> Maybe POSIX
expires :: Prelude.Maybe Data.POSIX,
CreateStreamingURLResponse -> Maybe Text
streamingURL :: Prelude.Maybe Prelude.Text,
CreateStreamingURLResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateStreamingURLResponse -> CreateStreamingURLResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateStreamingURLResponse -> CreateStreamingURLResponse -> Bool
$c/= :: CreateStreamingURLResponse -> CreateStreamingURLResponse -> Bool
== :: CreateStreamingURLResponse -> CreateStreamingURLResponse -> Bool
$c== :: CreateStreamingURLResponse -> CreateStreamingURLResponse -> Bool
Prelude.Eq, ReadPrec [CreateStreamingURLResponse]
ReadPrec CreateStreamingURLResponse
Int -> ReadS CreateStreamingURLResponse
ReadS [CreateStreamingURLResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateStreamingURLResponse]
$creadListPrec :: ReadPrec [CreateStreamingURLResponse]
readPrec :: ReadPrec CreateStreamingURLResponse
$creadPrec :: ReadPrec CreateStreamingURLResponse
readList :: ReadS [CreateStreamingURLResponse]
$creadList :: ReadS [CreateStreamingURLResponse]
readsPrec :: Int -> ReadS CreateStreamingURLResponse
$creadsPrec :: Int -> ReadS CreateStreamingURLResponse
Prelude.Read, Int -> CreateStreamingURLResponse -> ShowS
[CreateStreamingURLResponse] -> ShowS
CreateStreamingURLResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateStreamingURLResponse] -> ShowS
$cshowList :: [CreateStreamingURLResponse] -> ShowS
show :: CreateStreamingURLResponse -> String
$cshow :: CreateStreamingURLResponse -> String
showsPrec :: Int -> CreateStreamingURLResponse -> ShowS
$cshowsPrec :: Int -> CreateStreamingURLResponse -> ShowS
Prelude.Show, forall x.
Rep CreateStreamingURLResponse x -> CreateStreamingURLResponse
forall x.
CreateStreamingURLResponse -> Rep CreateStreamingURLResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateStreamingURLResponse x -> CreateStreamingURLResponse
$cfrom :: forall x.
CreateStreamingURLResponse -> Rep CreateStreamingURLResponse x
Prelude.Generic)
newCreateStreamingURLResponse ::
Prelude.Int ->
CreateStreamingURLResponse
newCreateStreamingURLResponse :: Int -> CreateStreamingURLResponse
newCreateStreamingURLResponse Int
pHttpStatus_ =
CreateStreamingURLResponse'
{ $sel:expires:CreateStreamingURLResponse' :: Maybe POSIX
expires =
forall a. Maybe a
Prelude.Nothing,
$sel:streamingURL:CreateStreamingURLResponse' :: Maybe Text
streamingURL = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateStreamingURLResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createStreamingURLResponse_expires :: Lens.Lens' CreateStreamingURLResponse (Prelude.Maybe Prelude.UTCTime)
createStreamingURLResponse_expires :: Lens' CreateStreamingURLResponse (Maybe UTCTime)
createStreamingURLResponse_expires = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStreamingURLResponse' {Maybe POSIX
expires :: Maybe POSIX
$sel:expires:CreateStreamingURLResponse' :: CreateStreamingURLResponse -> Maybe POSIX
expires} -> Maybe POSIX
expires) (\s :: CreateStreamingURLResponse
s@CreateStreamingURLResponse' {} Maybe POSIX
a -> CreateStreamingURLResponse
s {$sel:expires:CreateStreamingURLResponse' :: Maybe POSIX
expires = Maybe POSIX
a} :: CreateStreamingURLResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
createStreamingURLResponse_streamingURL :: Lens.Lens' CreateStreamingURLResponse (Prelude.Maybe Prelude.Text)
createStreamingURLResponse_streamingURL :: Lens' CreateStreamingURLResponse (Maybe Text)
createStreamingURLResponse_streamingURL = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStreamingURLResponse' {Maybe Text
streamingURL :: Maybe Text
$sel:streamingURL:CreateStreamingURLResponse' :: CreateStreamingURLResponse -> Maybe Text
streamingURL} -> Maybe Text
streamingURL) (\s :: CreateStreamingURLResponse
s@CreateStreamingURLResponse' {} Maybe Text
a -> CreateStreamingURLResponse
s {$sel:streamingURL:CreateStreamingURLResponse' :: Maybe Text
streamingURL = Maybe Text
a} :: CreateStreamingURLResponse)
createStreamingURLResponse_httpStatus :: Lens.Lens' CreateStreamingURLResponse Prelude.Int
createStreamingURLResponse_httpStatus :: Lens' CreateStreamingURLResponse Int
createStreamingURLResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStreamingURLResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateStreamingURLResponse' :: CreateStreamingURLResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateStreamingURLResponse
s@CreateStreamingURLResponse' {} Int
a -> CreateStreamingURLResponse
s {$sel:httpStatus:CreateStreamingURLResponse' :: Int
httpStatus = Int
a} :: CreateStreamingURLResponse)
instance Prelude.NFData CreateStreamingURLResponse where
rnf :: CreateStreamingURLResponse -> ()
rnf CreateStreamingURLResponse' {Int
Maybe Text
Maybe POSIX
httpStatus :: Int
streamingURL :: Maybe Text
expires :: Maybe POSIX
$sel:httpStatus:CreateStreamingURLResponse' :: CreateStreamingURLResponse -> Int
$sel:streamingURL:CreateStreamingURLResponse' :: CreateStreamingURLResponse -> Maybe Text
$sel:expires:CreateStreamingURLResponse' :: CreateStreamingURLResponse -> Maybe POSIX
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
expires
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
streamingURL
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus