{-# 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.CloudWatchEvents.DescribeArchive
(
DescribeArchive (..),
newDescribeArchive,
describeArchive_archiveName,
DescribeArchiveResponse (..),
newDescribeArchiveResponse,
describeArchiveResponse_archiveArn,
describeArchiveResponse_archiveName,
describeArchiveResponse_creationTime,
describeArchiveResponse_description,
describeArchiveResponse_eventCount,
describeArchiveResponse_eventPattern,
describeArchiveResponse_eventSourceArn,
describeArchiveResponse_retentionDays,
describeArchiveResponse_sizeBytes,
describeArchiveResponse_state,
describeArchiveResponse_stateReason,
describeArchiveResponse_httpStatus,
)
where
import Amazonka.CloudWatchEvents.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 DescribeArchive = DescribeArchive'
{
DescribeArchive -> Text
archiveName :: Prelude.Text
}
deriving (DescribeArchive -> DescribeArchive -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeArchive -> DescribeArchive -> Bool
$c/= :: DescribeArchive -> DescribeArchive -> Bool
== :: DescribeArchive -> DescribeArchive -> Bool
$c== :: DescribeArchive -> DescribeArchive -> Bool
Prelude.Eq, ReadPrec [DescribeArchive]
ReadPrec DescribeArchive
Int -> ReadS DescribeArchive
ReadS [DescribeArchive]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeArchive]
$creadListPrec :: ReadPrec [DescribeArchive]
readPrec :: ReadPrec DescribeArchive
$creadPrec :: ReadPrec DescribeArchive
readList :: ReadS [DescribeArchive]
$creadList :: ReadS [DescribeArchive]
readsPrec :: Int -> ReadS DescribeArchive
$creadsPrec :: Int -> ReadS DescribeArchive
Prelude.Read, Int -> DescribeArchive -> ShowS
[DescribeArchive] -> ShowS
DescribeArchive -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeArchive] -> ShowS
$cshowList :: [DescribeArchive] -> ShowS
show :: DescribeArchive -> String
$cshow :: DescribeArchive -> String
showsPrec :: Int -> DescribeArchive -> ShowS
$cshowsPrec :: Int -> DescribeArchive -> ShowS
Prelude.Show, forall x. Rep DescribeArchive x -> DescribeArchive
forall x. DescribeArchive -> Rep DescribeArchive x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeArchive x -> DescribeArchive
$cfrom :: forall x. DescribeArchive -> Rep DescribeArchive x
Prelude.Generic)
newDescribeArchive ::
Prelude.Text ->
DescribeArchive
newDescribeArchive :: Text -> DescribeArchive
newDescribeArchive Text
pArchiveName_ =
DescribeArchive' {$sel:archiveName:DescribeArchive' :: Text
archiveName = Text
pArchiveName_}
describeArchive_archiveName :: Lens.Lens' DescribeArchive Prelude.Text
describeArchive_archiveName :: Lens' DescribeArchive Text
describeArchive_archiveName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeArchive' {Text
archiveName :: Text
$sel:archiveName:DescribeArchive' :: DescribeArchive -> Text
archiveName} -> Text
archiveName) (\s :: DescribeArchive
s@DescribeArchive' {} Text
a -> DescribeArchive
s {$sel:archiveName:DescribeArchive' :: Text
archiveName = Text
a} :: DescribeArchive)
instance Core.AWSRequest DescribeArchive where
type
AWSResponse DescribeArchive =
DescribeArchiveResponse
request :: (Service -> Service) -> DescribeArchive -> Request DescribeArchive
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 DescribeArchive
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DescribeArchive)))
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
-> Maybe Text
-> Maybe POSIX
-> Maybe Text
-> Maybe Integer
-> Maybe Text
-> Maybe Text
-> Maybe Natural
-> Maybe Integer
-> Maybe ArchiveState
-> Maybe Text
-> Int
-> DescribeArchiveResponse
DescribeArchiveResponse'
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
"ArchiveArn")
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
"ArchiveName")
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
"CreationTime")
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
"Description")
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
"EventCount")
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
"EventPattern")
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
"EventSourceArn")
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
"RetentionDays")
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
"SizeBytes")
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
"State")
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
"StateReason")
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 DescribeArchive where
hashWithSalt :: Int -> DescribeArchive -> Int
hashWithSalt Int
_salt DescribeArchive' {Text
archiveName :: Text
$sel:archiveName:DescribeArchive' :: DescribeArchive -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
archiveName
instance Prelude.NFData DescribeArchive where
rnf :: DescribeArchive -> ()
rnf DescribeArchive' {Text
archiveName :: Text
$sel:archiveName:DescribeArchive' :: DescribeArchive -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
archiveName
instance Data.ToHeaders DescribeArchive where
toHeaders :: DescribeArchive -> 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
"AWSEvents.DescribeArchive" :: 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 DescribeArchive where
toJSON :: DescribeArchive -> Value
toJSON DescribeArchive' {Text
archiveName :: Text
$sel:archiveName:DescribeArchive' :: DescribeArchive -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"ArchiveName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
archiveName)]
)
instance Data.ToPath DescribeArchive where
toPath :: DescribeArchive -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeArchive where
toQuery :: DescribeArchive -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeArchiveResponse = DescribeArchiveResponse'
{
DescribeArchiveResponse -> Maybe Text
archiveArn :: Prelude.Maybe Prelude.Text,
DescribeArchiveResponse -> Maybe Text
archiveName :: Prelude.Maybe Prelude.Text,
DescribeArchiveResponse -> Maybe POSIX
creationTime :: Prelude.Maybe Data.POSIX,
DescribeArchiveResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
DescribeArchiveResponse -> Maybe Integer
eventCount :: Prelude.Maybe Prelude.Integer,
DescribeArchiveResponse -> Maybe Text
eventPattern :: Prelude.Maybe Prelude.Text,
DescribeArchiveResponse -> Maybe Text
eventSourceArn :: Prelude.Maybe Prelude.Text,
DescribeArchiveResponse -> Maybe Natural
retentionDays :: Prelude.Maybe Prelude.Natural,
DescribeArchiveResponse -> Maybe Integer
sizeBytes :: Prelude.Maybe Prelude.Integer,
DescribeArchiveResponse -> Maybe ArchiveState
state :: Prelude.Maybe ArchiveState,
DescribeArchiveResponse -> Maybe Text
stateReason :: Prelude.Maybe Prelude.Text,
DescribeArchiveResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeArchiveResponse -> DescribeArchiveResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeArchiveResponse -> DescribeArchiveResponse -> Bool
$c/= :: DescribeArchiveResponse -> DescribeArchiveResponse -> Bool
== :: DescribeArchiveResponse -> DescribeArchiveResponse -> Bool
$c== :: DescribeArchiveResponse -> DescribeArchiveResponse -> Bool
Prelude.Eq, ReadPrec [DescribeArchiveResponse]
ReadPrec DescribeArchiveResponse
Int -> ReadS DescribeArchiveResponse
ReadS [DescribeArchiveResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeArchiveResponse]
$creadListPrec :: ReadPrec [DescribeArchiveResponse]
readPrec :: ReadPrec DescribeArchiveResponse
$creadPrec :: ReadPrec DescribeArchiveResponse
readList :: ReadS [DescribeArchiveResponse]
$creadList :: ReadS [DescribeArchiveResponse]
readsPrec :: Int -> ReadS DescribeArchiveResponse
$creadsPrec :: Int -> ReadS DescribeArchiveResponse
Prelude.Read, Int -> DescribeArchiveResponse -> ShowS
[DescribeArchiveResponse] -> ShowS
DescribeArchiveResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeArchiveResponse] -> ShowS
$cshowList :: [DescribeArchiveResponse] -> ShowS
show :: DescribeArchiveResponse -> String
$cshow :: DescribeArchiveResponse -> String
showsPrec :: Int -> DescribeArchiveResponse -> ShowS
$cshowsPrec :: Int -> DescribeArchiveResponse -> ShowS
Prelude.Show, forall x. Rep DescribeArchiveResponse x -> DescribeArchiveResponse
forall x. DescribeArchiveResponse -> Rep DescribeArchiveResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeArchiveResponse x -> DescribeArchiveResponse
$cfrom :: forall x. DescribeArchiveResponse -> Rep DescribeArchiveResponse x
Prelude.Generic)
newDescribeArchiveResponse ::
Prelude.Int ->
DescribeArchiveResponse
newDescribeArchiveResponse :: Int -> DescribeArchiveResponse
newDescribeArchiveResponse Int
pHttpStatus_ =
DescribeArchiveResponse'
{ $sel:archiveArn:DescribeArchiveResponse' :: Maybe Text
archiveArn =
forall a. Maybe a
Prelude.Nothing,
$sel:archiveName:DescribeArchiveResponse' :: Maybe Text
archiveName = forall a. Maybe a
Prelude.Nothing,
$sel:creationTime:DescribeArchiveResponse' :: Maybe POSIX
creationTime = forall a. Maybe a
Prelude.Nothing,
$sel:description:DescribeArchiveResponse' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:eventCount:DescribeArchiveResponse' :: Maybe Integer
eventCount = forall a. Maybe a
Prelude.Nothing,
$sel:eventPattern:DescribeArchiveResponse' :: Maybe Text
eventPattern = forall a. Maybe a
Prelude.Nothing,
$sel:eventSourceArn:DescribeArchiveResponse' :: Maybe Text
eventSourceArn = forall a. Maybe a
Prelude.Nothing,
$sel:retentionDays:DescribeArchiveResponse' :: Maybe Natural
retentionDays = forall a. Maybe a
Prelude.Nothing,
$sel:sizeBytes:DescribeArchiveResponse' :: Maybe Integer
sizeBytes = forall a. Maybe a
Prelude.Nothing,
$sel:state:DescribeArchiveResponse' :: Maybe ArchiveState
state = forall a. Maybe a
Prelude.Nothing,
$sel:stateReason:DescribeArchiveResponse' :: Maybe Text
stateReason = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeArchiveResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeArchiveResponse_archiveArn :: Lens.Lens' DescribeArchiveResponse (Prelude.Maybe Prelude.Text)
describeArchiveResponse_archiveArn :: Lens' DescribeArchiveResponse (Maybe Text)
describeArchiveResponse_archiveArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeArchiveResponse' {Maybe Text
archiveArn :: Maybe Text
$sel:archiveArn:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Text
archiveArn} -> Maybe Text
archiveArn) (\s :: DescribeArchiveResponse
s@DescribeArchiveResponse' {} Maybe Text
a -> DescribeArchiveResponse
s {$sel:archiveArn:DescribeArchiveResponse' :: Maybe Text
archiveArn = Maybe Text
a} :: DescribeArchiveResponse)
describeArchiveResponse_archiveName :: Lens.Lens' DescribeArchiveResponse (Prelude.Maybe Prelude.Text)
describeArchiveResponse_archiveName :: Lens' DescribeArchiveResponse (Maybe Text)
describeArchiveResponse_archiveName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeArchiveResponse' {Maybe Text
archiveName :: Maybe Text
$sel:archiveName:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Text
archiveName} -> Maybe Text
archiveName) (\s :: DescribeArchiveResponse
s@DescribeArchiveResponse' {} Maybe Text
a -> DescribeArchiveResponse
s {$sel:archiveName:DescribeArchiveResponse' :: Maybe Text
archiveName = Maybe Text
a} :: DescribeArchiveResponse)
describeArchiveResponse_creationTime :: Lens.Lens' DescribeArchiveResponse (Prelude.Maybe Prelude.UTCTime)
describeArchiveResponse_creationTime :: Lens' DescribeArchiveResponse (Maybe UTCTime)
describeArchiveResponse_creationTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeArchiveResponse' {Maybe POSIX
creationTime :: Maybe POSIX
$sel:creationTime:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe POSIX
creationTime} -> Maybe POSIX
creationTime) (\s :: DescribeArchiveResponse
s@DescribeArchiveResponse' {} Maybe POSIX
a -> DescribeArchiveResponse
s {$sel:creationTime:DescribeArchiveResponse' :: Maybe POSIX
creationTime = Maybe POSIX
a} :: DescribeArchiveResponse) 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
describeArchiveResponse_description :: Lens.Lens' DescribeArchiveResponse (Prelude.Maybe Prelude.Text)
describeArchiveResponse_description :: Lens' DescribeArchiveResponse (Maybe Text)
describeArchiveResponse_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeArchiveResponse' {Maybe Text
description :: Maybe Text
$sel:description:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Text
description} -> Maybe Text
description) (\s :: DescribeArchiveResponse
s@DescribeArchiveResponse' {} Maybe Text
a -> DescribeArchiveResponse
s {$sel:description:DescribeArchiveResponse' :: Maybe Text
description = Maybe Text
a} :: DescribeArchiveResponse)
describeArchiveResponse_eventCount :: Lens.Lens' DescribeArchiveResponse (Prelude.Maybe Prelude.Integer)
describeArchiveResponse_eventCount :: Lens' DescribeArchiveResponse (Maybe Integer)
describeArchiveResponse_eventCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeArchiveResponse' {Maybe Integer
eventCount :: Maybe Integer
$sel:eventCount:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Integer
eventCount} -> Maybe Integer
eventCount) (\s :: DescribeArchiveResponse
s@DescribeArchiveResponse' {} Maybe Integer
a -> DescribeArchiveResponse
s {$sel:eventCount:DescribeArchiveResponse' :: Maybe Integer
eventCount = Maybe Integer
a} :: DescribeArchiveResponse)
describeArchiveResponse_eventPattern :: Lens.Lens' DescribeArchiveResponse (Prelude.Maybe Prelude.Text)
describeArchiveResponse_eventPattern :: Lens' DescribeArchiveResponse (Maybe Text)
describeArchiveResponse_eventPattern = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeArchiveResponse' {Maybe Text
eventPattern :: Maybe Text
$sel:eventPattern:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Text
eventPattern} -> Maybe Text
eventPattern) (\s :: DescribeArchiveResponse
s@DescribeArchiveResponse' {} Maybe Text
a -> DescribeArchiveResponse
s {$sel:eventPattern:DescribeArchiveResponse' :: Maybe Text
eventPattern = Maybe Text
a} :: DescribeArchiveResponse)
describeArchiveResponse_eventSourceArn :: Lens.Lens' DescribeArchiveResponse (Prelude.Maybe Prelude.Text)
describeArchiveResponse_eventSourceArn :: Lens' DescribeArchiveResponse (Maybe Text)
describeArchiveResponse_eventSourceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeArchiveResponse' {Maybe Text
eventSourceArn :: Maybe Text
$sel:eventSourceArn:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Text
eventSourceArn} -> Maybe Text
eventSourceArn) (\s :: DescribeArchiveResponse
s@DescribeArchiveResponse' {} Maybe Text
a -> DescribeArchiveResponse
s {$sel:eventSourceArn:DescribeArchiveResponse' :: Maybe Text
eventSourceArn = Maybe Text
a} :: DescribeArchiveResponse)
describeArchiveResponse_retentionDays :: Lens.Lens' DescribeArchiveResponse (Prelude.Maybe Prelude.Natural)
describeArchiveResponse_retentionDays :: Lens' DescribeArchiveResponse (Maybe Natural)
describeArchiveResponse_retentionDays = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeArchiveResponse' {Maybe Natural
retentionDays :: Maybe Natural
$sel:retentionDays:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Natural
retentionDays} -> Maybe Natural
retentionDays) (\s :: DescribeArchiveResponse
s@DescribeArchiveResponse' {} Maybe Natural
a -> DescribeArchiveResponse
s {$sel:retentionDays:DescribeArchiveResponse' :: Maybe Natural
retentionDays = Maybe Natural
a} :: DescribeArchiveResponse)
describeArchiveResponse_sizeBytes :: Lens.Lens' DescribeArchiveResponse (Prelude.Maybe Prelude.Integer)
describeArchiveResponse_sizeBytes :: Lens' DescribeArchiveResponse (Maybe Integer)
describeArchiveResponse_sizeBytes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeArchiveResponse' {Maybe Integer
sizeBytes :: Maybe Integer
$sel:sizeBytes:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Integer
sizeBytes} -> Maybe Integer
sizeBytes) (\s :: DescribeArchiveResponse
s@DescribeArchiveResponse' {} Maybe Integer
a -> DescribeArchiveResponse
s {$sel:sizeBytes:DescribeArchiveResponse' :: Maybe Integer
sizeBytes = Maybe Integer
a} :: DescribeArchiveResponse)
describeArchiveResponse_state :: Lens.Lens' DescribeArchiveResponse (Prelude.Maybe ArchiveState)
describeArchiveResponse_state :: Lens' DescribeArchiveResponse (Maybe ArchiveState)
describeArchiveResponse_state = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeArchiveResponse' {Maybe ArchiveState
state :: Maybe ArchiveState
$sel:state:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe ArchiveState
state} -> Maybe ArchiveState
state) (\s :: DescribeArchiveResponse
s@DescribeArchiveResponse' {} Maybe ArchiveState
a -> DescribeArchiveResponse
s {$sel:state:DescribeArchiveResponse' :: Maybe ArchiveState
state = Maybe ArchiveState
a} :: DescribeArchiveResponse)
describeArchiveResponse_stateReason :: Lens.Lens' DescribeArchiveResponse (Prelude.Maybe Prelude.Text)
describeArchiveResponse_stateReason :: Lens' DescribeArchiveResponse (Maybe Text)
describeArchiveResponse_stateReason = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeArchiveResponse' {Maybe Text
stateReason :: Maybe Text
$sel:stateReason:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Text
stateReason} -> Maybe Text
stateReason) (\s :: DescribeArchiveResponse
s@DescribeArchiveResponse' {} Maybe Text
a -> DescribeArchiveResponse
s {$sel:stateReason:DescribeArchiveResponse' :: Maybe Text
stateReason = Maybe Text
a} :: DescribeArchiveResponse)
describeArchiveResponse_httpStatus :: Lens.Lens' DescribeArchiveResponse Prelude.Int
describeArchiveResponse_httpStatus :: Lens' DescribeArchiveResponse Int
describeArchiveResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeArchiveResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeArchiveResponse' :: DescribeArchiveResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeArchiveResponse
s@DescribeArchiveResponse' {} Int
a -> DescribeArchiveResponse
s {$sel:httpStatus:DescribeArchiveResponse' :: Int
httpStatus = Int
a} :: DescribeArchiveResponse)
instance Prelude.NFData DescribeArchiveResponse where
rnf :: DescribeArchiveResponse -> ()
rnf DescribeArchiveResponse' {Int
Maybe Integer
Maybe Natural
Maybe Text
Maybe POSIX
Maybe ArchiveState
httpStatus :: Int
stateReason :: Maybe Text
state :: Maybe ArchiveState
sizeBytes :: Maybe Integer
retentionDays :: Maybe Natural
eventSourceArn :: Maybe Text
eventPattern :: Maybe Text
eventCount :: Maybe Integer
description :: Maybe Text
creationTime :: Maybe POSIX
archiveName :: Maybe Text
archiveArn :: Maybe Text
$sel:httpStatus:DescribeArchiveResponse' :: DescribeArchiveResponse -> Int
$sel:stateReason:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Text
$sel:state:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe ArchiveState
$sel:sizeBytes:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Integer
$sel:retentionDays:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Natural
$sel:eventSourceArn:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Text
$sel:eventPattern:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Text
$sel:eventCount:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Integer
$sel:description:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Text
$sel:creationTime:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe POSIX
$sel:archiveName:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Text
$sel:archiveArn:DescribeArchiveResponse' :: DescribeArchiveResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
archiveArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
archiveName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
creationTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
eventCount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
eventPattern
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
eventSourceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
retentionDays
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
sizeBytes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ArchiveState
state
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
stateReason
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus