{-# 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.ElasticTranscoder.ReadPreset
(
ReadPreset (..),
newReadPreset,
readPreset_id,
ReadPresetResponse (..),
newReadPresetResponse,
readPresetResponse_preset,
readPresetResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ElasticTranscoder.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ReadPreset = ReadPreset'
{
ReadPreset -> Text
id :: Prelude.Text
}
deriving (ReadPreset -> ReadPreset -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ReadPreset -> ReadPreset -> Bool
$c/= :: ReadPreset -> ReadPreset -> Bool
== :: ReadPreset -> ReadPreset -> Bool
$c== :: ReadPreset -> ReadPreset -> Bool
Prelude.Eq, ReadPrec [ReadPreset]
ReadPrec ReadPreset
Int -> ReadS ReadPreset
ReadS [ReadPreset]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ReadPreset]
$creadListPrec :: ReadPrec [ReadPreset]
readPrec :: ReadPrec ReadPreset
$creadPrec :: ReadPrec ReadPreset
readList :: ReadS [ReadPreset]
$creadList :: ReadS [ReadPreset]
readsPrec :: Int -> ReadS ReadPreset
$creadsPrec :: Int -> ReadS ReadPreset
Prelude.Read, Int -> ReadPreset -> ShowS
[ReadPreset] -> ShowS
ReadPreset -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ReadPreset] -> ShowS
$cshowList :: [ReadPreset] -> ShowS
show :: ReadPreset -> String
$cshow :: ReadPreset -> String
showsPrec :: Int -> ReadPreset -> ShowS
$cshowsPrec :: Int -> ReadPreset -> ShowS
Prelude.Show, forall x. Rep ReadPreset x -> ReadPreset
forall x. ReadPreset -> Rep ReadPreset x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ReadPreset x -> ReadPreset
$cfrom :: forall x. ReadPreset -> Rep ReadPreset x
Prelude.Generic)
newReadPreset ::
Prelude.Text ->
ReadPreset
newReadPreset :: Text -> ReadPreset
newReadPreset Text
pId_ = ReadPreset' {$sel:id:ReadPreset' :: Text
id = Text
pId_}
readPreset_id :: Lens.Lens' ReadPreset Prelude.Text
readPreset_id :: Lens' ReadPreset Text
readPreset_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReadPreset' {Text
id :: Text
$sel:id:ReadPreset' :: ReadPreset -> Text
id} -> Text
id) (\s :: ReadPreset
s@ReadPreset' {} Text
a -> ReadPreset
s {$sel:id:ReadPreset' :: Text
id = Text
a} :: ReadPreset)
instance Core.AWSRequest ReadPreset where
type AWSResponse ReadPreset = ReadPresetResponse
request :: (Service -> Service) -> ReadPreset -> Request ReadPreset
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ReadPreset
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ReadPreset)))
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 Preset -> Int -> ReadPresetResponse
ReadPresetResponse'
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
"Preset")
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 ReadPreset where
hashWithSalt :: Int -> ReadPreset -> Int
hashWithSalt Int
_salt ReadPreset' {Text
id :: Text
$sel:id:ReadPreset' :: ReadPreset -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
id
instance Prelude.NFData ReadPreset where
rnf :: ReadPreset -> ()
rnf ReadPreset' {Text
id :: Text
$sel:id:ReadPreset' :: ReadPreset -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
id
instance Data.ToHeaders ReadPreset where
toHeaders :: ReadPreset -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ReadPreset where
toPath :: ReadPreset -> ByteString
toPath ReadPreset' {Text
id :: Text
$sel:id:ReadPreset' :: ReadPreset -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/2012-09-25/presets/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
id]
instance Data.ToQuery ReadPreset where
toQuery :: ReadPreset -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ReadPresetResponse = ReadPresetResponse'
{
ReadPresetResponse -> Maybe Preset
preset :: Prelude.Maybe Preset,
ReadPresetResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ReadPresetResponse -> ReadPresetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ReadPresetResponse -> ReadPresetResponse -> Bool
$c/= :: ReadPresetResponse -> ReadPresetResponse -> Bool
== :: ReadPresetResponse -> ReadPresetResponse -> Bool
$c== :: ReadPresetResponse -> ReadPresetResponse -> Bool
Prelude.Eq, ReadPrec [ReadPresetResponse]
ReadPrec ReadPresetResponse
Int -> ReadS ReadPresetResponse
ReadS [ReadPresetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ReadPresetResponse]
$creadListPrec :: ReadPrec [ReadPresetResponse]
readPrec :: ReadPrec ReadPresetResponse
$creadPrec :: ReadPrec ReadPresetResponse
readList :: ReadS [ReadPresetResponse]
$creadList :: ReadS [ReadPresetResponse]
readsPrec :: Int -> ReadS ReadPresetResponse
$creadsPrec :: Int -> ReadS ReadPresetResponse
Prelude.Read, Int -> ReadPresetResponse -> ShowS
[ReadPresetResponse] -> ShowS
ReadPresetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ReadPresetResponse] -> ShowS
$cshowList :: [ReadPresetResponse] -> ShowS
show :: ReadPresetResponse -> String
$cshow :: ReadPresetResponse -> String
showsPrec :: Int -> ReadPresetResponse -> ShowS
$cshowsPrec :: Int -> ReadPresetResponse -> ShowS
Prelude.Show, forall x. Rep ReadPresetResponse x -> ReadPresetResponse
forall x. ReadPresetResponse -> Rep ReadPresetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ReadPresetResponse x -> ReadPresetResponse
$cfrom :: forall x. ReadPresetResponse -> Rep ReadPresetResponse x
Prelude.Generic)
newReadPresetResponse ::
Prelude.Int ->
ReadPresetResponse
newReadPresetResponse :: Int -> ReadPresetResponse
newReadPresetResponse Int
pHttpStatus_ =
ReadPresetResponse'
{ $sel:preset:ReadPresetResponse' :: Maybe Preset
preset = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ReadPresetResponse' :: Int
httpStatus = Int
pHttpStatus_
}
readPresetResponse_preset :: Lens.Lens' ReadPresetResponse (Prelude.Maybe Preset)
readPresetResponse_preset :: Lens' ReadPresetResponse (Maybe Preset)
readPresetResponse_preset = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReadPresetResponse' {Maybe Preset
preset :: Maybe Preset
$sel:preset:ReadPresetResponse' :: ReadPresetResponse -> Maybe Preset
preset} -> Maybe Preset
preset) (\s :: ReadPresetResponse
s@ReadPresetResponse' {} Maybe Preset
a -> ReadPresetResponse
s {$sel:preset:ReadPresetResponse' :: Maybe Preset
preset = Maybe Preset
a} :: ReadPresetResponse)
readPresetResponse_httpStatus :: Lens.Lens' ReadPresetResponse Prelude.Int
readPresetResponse_httpStatus :: Lens' ReadPresetResponse Int
readPresetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReadPresetResponse' {Int
httpStatus :: Int
$sel:httpStatus:ReadPresetResponse' :: ReadPresetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ReadPresetResponse
s@ReadPresetResponse' {} Int
a -> ReadPresetResponse
s {$sel:httpStatus:ReadPresetResponse' :: Int
httpStatus = Int
a} :: ReadPresetResponse)
instance Prelude.NFData ReadPresetResponse where
rnf :: ReadPresetResponse -> ()
rnf ReadPresetResponse' {Int
Maybe Preset
httpStatus :: Int
preset :: Maybe Preset
$sel:httpStatus:ReadPresetResponse' :: ReadPresetResponse -> Int
$sel:preset:ReadPresetResponse' :: ReadPresetResponse -> Maybe Preset
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Preset
preset
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus