{-# 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.DevOpsGuru.DescribeAccountOverview
(
DescribeAccountOverview (..),
newDescribeAccountOverview,
describeAccountOverview_toTime,
describeAccountOverview_fromTime,
DescribeAccountOverviewResponse (..),
newDescribeAccountOverviewResponse,
describeAccountOverviewResponse_httpStatus,
describeAccountOverviewResponse_reactiveInsights,
describeAccountOverviewResponse_proactiveInsights,
describeAccountOverviewResponse_meanTimeToRecoverInMilliseconds,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DevOpsGuru.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeAccountOverview = DescribeAccountOverview'
{
DescribeAccountOverview -> Maybe POSIX
toTime :: Prelude.Maybe Data.POSIX,
DescribeAccountOverview -> POSIX
fromTime :: Data.POSIX
}
deriving (DescribeAccountOverview -> DescribeAccountOverview -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeAccountOverview -> DescribeAccountOverview -> Bool
$c/= :: DescribeAccountOverview -> DescribeAccountOverview -> Bool
== :: DescribeAccountOverview -> DescribeAccountOverview -> Bool
$c== :: DescribeAccountOverview -> DescribeAccountOverview -> Bool
Prelude.Eq, ReadPrec [DescribeAccountOverview]
ReadPrec DescribeAccountOverview
Int -> ReadS DescribeAccountOverview
ReadS [DescribeAccountOverview]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeAccountOverview]
$creadListPrec :: ReadPrec [DescribeAccountOverview]
readPrec :: ReadPrec DescribeAccountOverview
$creadPrec :: ReadPrec DescribeAccountOverview
readList :: ReadS [DescribeAccountOverview]
$creadList :: ReadS [DescribeAccountOverview]
readsPrec :: Int -> ReadS DescribeAccountOverview
$creadsPrec :: Int -> ReadS DescribeAccountOverview
Prelude.Read, Int -> DescribeAccountOverview -> ShowS
[DescribeAccountOverview] -> ShowS
DescribeAccountOverview -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeAccountOverview] -> ShowS
$cshowList :: [DescribeAccountOverview] -> ShowS
show :: DescribeAccountOverview -> String
$cshow :: DescribeAccountOverview -> String
showsPrec :: Int -> DescribeAccountOverview -> ShowS
$cshowsPrec :: Int -> DescribeAccountOverview -> ShowS
Prelude.Show, forall x. Rep DescribeAccountOverview x -> DescribeAccountOverview
forall x. DescribeAccountOverview -> Rep DescribeAccountOverview x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeAccountOverview x -> DescribeAccountOverview
$cfrom :: forall x. DescribeAccountOverview -> Rep DescribeAccountOverview x
Prelude.Generic)
newDescribeAccountOverview ::
Prelude.UTCTime ->
DescribeAccountOverview
newDescribeAccountOverview :: UTCTime -> DescribeAccountOverview
newDescribeAccountOverview UTCTime
pFromTime_ =
DescribeAccountOverview'
{ $sel:toTime:DescribeAccountOverview' :: Maybe POSIX
toTime = forall a. Maybe a
Prelude.Nothing,
$sel:fromTime:DescribeAccountOverview' :: POSIX
fromTime = forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pFromTime_
}
describeAccountOverview_toTime :: Lens.Lens' DescribeAccountOverview (Prelude.Maybe Prelude.UTCTime)
describeAccountOverview_toTime :: Lens' DescribeAccountOverview (Maybe UTCTime)
describeAccountOverview_toTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAccountOverview' {Maybe POSIX
toTime :: Maybe POSIX
$sel:toTime:DescribeAccountOverview' :: DescribeAccountOverview -> Maybe POSIX
toTime} -> Maybe POSIX
toTime) (\s :: DescribeAccountOverview
s@DescribeAccountOverview' {} Maybe POSIX
a -> DescribeAccountOverview
s {$sel:toTime:DescribeAccountOverview' :: Maybe POSIX
toTime = Maybe POSIX
a} :: DescribeAccountOverview) 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
describeAccountOverview_fromTime :: Lens.Lens' DescribeAccountOverview Prelude.UTCTime
describeAccountOverview_fromTime :: Lens' DescribeAccountOverview UTCTime
describeAccountOverview_fromTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAccountOverview' {POSIX
fromTime :: POSIX
$sel:fromTime:DescribeAccountOverview' :: DescribeAccountOverview -> POSIX
fromTime} -> POSIX
fromTime) (\s :: DescribeAccountOverview
s@DescribeAccountOverview' {} POSIX
a -> DescribeAccountOverview
s {$sel:fromTime:DescribeAccountOverview' :: POSIX
fromTime = POSIX
a} :: DescribeAccountOverview) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
instance Core.AWSRequest DescribeAccountOverview where
type
AWSResponse DescribeAccountOverview =
DescribeAccountOverviewResponse
request :: (Service -> Service)
-> DescribeAccountOverview -> Request DescribeAccountOverview
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 DescribeAccountOverview
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeAccountOverview)))
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 ->
Int -> Int -> Int -> Integer -> DescribeAccountOverviewResponse
DescribeAccountOverviewResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"ReactiveInsights")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"ProactiveInsights")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"MeanTimeToRecoverInMilliseconds")
)
instance Prelude.Hashable DescribeAccountOverview where
hashWithSalt :: Int -> DescribeAccountOverview -> Int
hashWithSalt Int
_salt DescribeAccountOverview' {Maybe POSIX
POSIX
fromTime :: POSIX
toTime :: Maybe POSIX
$sel:fromTime:DescribeAccountOverview' :: DescribeAccountOverview -> POSIX
$sel:toTime:DescribeAccountOverview' :: DescribeAccountOverview -> Maybe POSIX
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
toTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` POSIX
fromTime
instance Prelude.NFData DescribeAccountOverview where
rnf :: DescribeAccountOverview -> ()
rnf DescribeAccountOverview' {Maybe POSIX
POSIX
fromTime :: POSIX
toTime :: Maybe POSIX
$sel:fromTime:DescribeAccountOverview' :: DescribeAccountOverview -> POSIX
$sel:toTime:DescribeAccountOverview' :: DescribeAccountOverview -> Maybe POSIX
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
toTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf POSIX
fromTime
instance Data.ToHeaders DescribeAccountOverview where
toHeaders :: DescribeAccountOverview -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DescribeAccountOverview where
toJSON :: DescribeAccountOverview -> Value
toJSON DescribeAccountOverview' {Maybe POSIX
POSIX
fromTime :: POSIX
toTime :: Maybe POSIX
$sel:fromTime:DescribeAccountOverview' :: DescribeAccountOverview -> POSIX
$sel:toTime:DescribeAccountOverview' :: DescribeAccountOverview -> Maybe POSIX
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ToTime" 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 POSIX
toTime,
forall a. a -> Maybe a
Prelude.Just (Key
"FromTime" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= POSIX
fromTime)
]
)
instance Data.ToPath DescribeAccountOverview where
toPath :: DescribeAccountOverview -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/accounts/overview"
instance Data.ToQuery DescribeAccountOverview where
toQuery :: DescribeAccountOverview -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeAccountOverviewResponse = DescribeAccountOverviewResponse'
{
DescribeAccountOverviewResponse -> Int
httpStatus :: Prelude.Int,
DescribeAccountOverviewResponse -> Int
reactiveInsights :: Prelude.Int,
DescribeAccountOverviewResponse -> Int
proactiveInsights :: Prelude.Int,
DescribeAccountOverviewResponse -> Integer
meanTimeToRecoverInMilliseconds :: Prelude.Integer
}
deriving (DescribeAccountOverviewResponse
-> DescribeAccountOverviewResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeAccountOverviewResponse
-> DescribeAccountOverviewResponse -> Bool
$c/= :: DescribeAccountOverviewResponse
-> DescribeAccountOverviewResponse -> Bool
== :: DescribeAccountOverviewResponse
-> DescribeAccountOverviewResponse -> Bool
$c== :: DescribeAccountOverviewResponse
-> DescribeAccountOverviewResponse -> Bool
Prelude.Eq, ReadPrec [DescribeAccountOverviewResponse]
ReadPrec DescribeAccountOverviewResponse
Int -> ReadS DescribeAccountOverviewResponse
ReadS [DescribeAccountOverviewResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeAccountOverviewResponse]
$creadListPrec :: ReadPrec [DescribeAccountOverviewResponse]
readPrec :: ReadPrec DescribeAccountOverviewResponse
$creadPrec :: ReadPrec DescribeAccountOverviewResponse
readList :: ReadS [DescribeAccountOverviewResponse]
$creadList :: ReadS [DescribeAccountOverviewResponse]
readsPrec :: Int -> ReadS DescribeAccountOverviewResponse
$creadsPrec :: Int -> ReadS DescribeAccountOverviewResponse
Prelude.Read, Int -> DescribeAccountOverviewResponse -> ShowS
[DescribeAccountOverviewResponse] -> ShowS
DescribeAccountOverviewResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeAccountOverviewResponse] -> ShowS
$cshowList :: [DescribeAccountOverviewResponse] -> ShowS
show :: DescribeAccountOverviewResponse -> String
$cshow :: DescribeAccountOverviewResponse -> String
showsPrec :: Int -> DescribeAccountOverviewResponse -> ShowS
$cshowsPrec :: Int -> DescribeAccountOverviewResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeAccountOverviewResponse x
-> DescribeAccountOverviewResponse
forall x.
DescribeAccountOverviewResponse
-> Rep DescribeAccountOverviewResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeAccountOverviewResponse x
-> DescribeAccountOverviewResponse
$cfrom :: forall x.
DescribeAccountOverviewResponse
-> Rep DescribeAccountOverviewResponse x
Prelude.Generic)
newDescribeAccountOverviewResponse ::
Prelude.Int ->
Prelude.Int ->
Prelude.Int ->
Prelude.Integer ->
DescribeAccountOverviewResponse
newDescribeAccountOverviewResponse :: Int -> Int -> Int -> Integer -> DescribeAccountOverviewResponse
newDescribeAccountOverviewResponse
Int
pHttpStatus_
Int
pReactiveInsights_
Int
pProactiveInsights_
Integer
pMeanTimeToRecoverInMilliseconds_ =
DescribeAccountOverviewResponse'
{ $sel:httpStatus:DescribeAccountOverviewResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:reactiveInsights:DescribeAccountOverviewResponse' :: Int
reactiveInsights = Int
pReactiveInsights_,
$sel:proactiveInsights:DescribeAccountOverviewResponse' :: Int
proactiveInsights = Int
pProactiveInsights_,
$sel:meanTimeToRecoverInMilliseconds:DescribeAccountOverviewResponse' :: Integer
meanTimeToRecoverInMilliseconds =
Integer
pMeanTimeToRecoverInMilliseconds_
}
describeAccountOverviewResponse_httpStatus :: Lens.Lens' DescribeAccountOverviewResponse Prelude.Int
describeAccountOverviewResponse_httpStatus :: Lens' DescribeAccountOverviewResponse Int
describeAccountOverviewResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAccountOverviewResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeAccountOverviewResponse' :: DescribeAccountOverviewResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeAccountOverviewResponse
s@DescribeAccountOverviewResponse' {} Int
a -> DescribeAccountOverviewResponse
s {$sel:httpStatus:DescribeAccountOverviewResponse' :: Int
httpStatus = Int
a} :: DescribeAccountOverviewResponse)
describeAccountOverviewResponse_reactiveInsights :: Lens.Lens' DescribeAccountOverviewResponse Prelude.Int
describeAccountOverviewResponse_reactiveInsights :: Lens' DescribeAccountOverviewResponse Int
describeAccountOverviewResponse_reactiveInsights = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAccountOverviewResponse' {Int
reactiveInsights :: Int
$sel:reactiveInsights:DescribeAccountOverviewResponse' :: DescribeAccountOverviewResponse -> Int
reactiveInsights} -> Int
reactiveInsights) (\s :: DescribeAccountOverviewResponse
s@DescribeAccountOverviewResponse' {} Int
a -> DescribeAccountOverviewResponse
s {$sel:reactiveInsights:DescribeAccountOverviewResponse' :: Int
reactiveInsights = Int
a} :: DescribeAccountOverviewResponse)
describeAccountOverviewResponse_proactiveInsights :: Lens.Lens' DescribeAccountOverviewResponse Prelude.Int
describeAccountOverviewResponse_proactiveInsights :: Lens' DescribeAccountOverviewResponse Int
describeAccountOverviewResponse_proactiveInsights = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAccountOverviewResponse' {Int
proactiveInsights :: Int
$sel:proactiveInsights:DescribeAccountOverviewResponse' :: DescribeAccountOverviewResponse -> Int
proactiveInsights} -> Int
proactiveInsights) (\s :: DescribeAccountOverviewResponse
s@DescribeAccountOverviewResponse' {} Int
a -> DescribeAccountOverviewResponse
s {$sel:proactiveInsights:DescribeAccountOverviewResponse' :: Int
proactiveInsights = Int
a} :: DescribeAccountOverviewResponse)
describeAccountOverviewResponse_meanTimeToRecoverInMilliseconds :: Lens.Lens' DescribeAccountOverviewResponse Prelude.Integer
describeAccountOverviewResponse_meanTimeToRecoverInMilliseconds :: Lens' DescribeAccountOverviewResponse Integer
describeAccountOverviewResponse_meanTimeToRecoverInMilliseconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAccountOverviewResponse' {Integer
meanTimeToRecoverInMilliseconds :: Integer
$sel:meanTimeToRecoverInMilliseconds:DescribeAccountOverviewResponse' :: DescribeAccountOverviewResponse -> Integer
meanTimeToRecoverInMilliseconds} -> Integer
meanTimeToRecoverInMilliseconds) (\s :: DescribeAccountOverviewResponse
s@DescribeAccountOverviewResponse' {} Integer
a -> DescribeAccountOverviewResponse
s {$sel:meanTimeToRecoverInMilliseconds:DescribeAccountOverviewResponse' :: Integer
meanTimeToRecoverInMilliseconds = Integer
a} :: DescribeAccountOverviewResponse)
instance
Prelude.NFData
DescribeAccountOverviewResponse
where
rnf :: DescribeAccountOverviewResponse -> ()
rnf DescribeAccountOverviewResponse' {Int
Integer
meanTimeToRecoverInMilliseconds :: Integer
proactiveInsights :: Int
reactiveInsights :: Int
httpStatus :: Int
$sel:meanTimeToRecoverInMilliseconds:DescribeAccountOverviewResponse' :: DescribeAccountOverviewResponse -> Integer
$sel:proactiveInsights:DescribeAccountOverviewResponse' :: DescribeAccountOverviewResponse -> Int
$sel:reactiveInsights:DescribeAccountOverviewResponse' :: DescribeAccountOverviewResponse -> Int
$sel:httpStatus:DescribeAccountOverviewResponse' :: DescribeAccountOverviewResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
reactiveInsights
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
proactiveInsights
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Integer
meanTimeToRecoverInMilliseconds