{-# 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.DevOpsGuru.DescribeAccountOverview
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- For the time range passed in, returns the number of open reactive
-- insight that were created, the number of open proactive insights that
-- were created, and the Mean Time to Recover (MTTR) for all closed
-- reactive insights.
module Amazonka.DevOpsGuru.DescribeAccountOverview
  ( -- * Creating a Request
    DescribeAccountOverview (..),
    newDescribeAccountOverview,

    -- * Request Lenses
    describeAccountOverview_toTime,
    describeAccountOverview_fromTime,

    -- * Destructuring the Response
    DescribeAccountOverviewResponse (..),
    newDescribeAccountOverviewResponse,

    -- * Response Lenses
    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

-- | /See:/ 'newDescribeAccountOverview' smart constructor.
data DescribeAccountOverview = DescribeAccountOverview'
  { -- | The end of the time range passed in. The start time granularity is at
    -- the day level. The floor of the start time is used. Returned information
    -- occurred before this day. If this is not specified, then the current day
    -- is used.
    DescribeAccountOverview -> Maybe POSIX
toTime :: Prelude.Maybe Data.POSIX,
    -- | The start of the time range passed in. The start time granularity is at
    -- the day level. The floor of the start time is used. Returned information
    -- occurred after this day.
    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)

-- |
-- Create a value of 'DescribeAccountOverview' 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:
--
-- 'toTime', 'describeAccountOverview_toTime' - The end of the time range passed in. The start time granularity is at
-- the day level. The floor of the start time is used. Returned information
-- occurred before this day. If this is not specified, then the current day
-- is used.
--
-- 'fromTime', 'describeAccountOverview_fromTime' - The start of the time range passed in. The start time granularity is at
-- the day level. The floor of the start time is used. Returned information
-- occurred after this day.
newDescribeAccountOverview ::
  -- | 'fromTime'
  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_
    }

-- | The end of the time range passed in. The start time granularity is at
-- the day level. The floor of the start time is used. Returned information
-- occurred before this day. If this is not specified, then the current day
-- is used.
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

-- | The start of the time range passed in. The start time granularity is at
-- the day level. The floor of the start time is used. Returned information
-- occurred after this day.
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

-- | /See:/ 'newDescribeAccountOverviewResponse' smart constructor.
data DescribeAccountOverviewResponse = DescribeAccountOverviewResponse'
  { -- | The response's http status code.
    DescribeAccountOverviewResponse -> Int
httpStatus :: Prelude.Int,
    -- | An integer that specifies the number of open reactive insights in your
    -- Amazon Web Services account that were created during the time range
    -- passed in.
    DescribeAccountOverviewResponse -> Int
reactiveInsights :: Prelude.Int,
    -- | An integer that specifies the number of open proactive insights in your
    -- Amazon Web Services account that were created during the time range
    -- passed in.
    DescribeAccountOverviewResponse -> Int
proactiveInsights :: Prelude.Int,
    -- | The Mean Time to Recover (MTTR) for all closed insights that were
    -- created during the time range passed in.
    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)

-- |
-- Create a value of 'DescribeAccountOverviewResponse' 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:
--
-- 'httpStatus', 'describeAccountOverviewResponse_httpStatus' - The response's http status code.
--
-- 'reactiveInsights', 'describeAccountOverviewResponse_reactiveInsights' - An integer that specifies the number of open reactive insights in your
-- Amazon Web Services account that were created during the time range
-- passed in.
--
-- 'proactiveInsights', 'describeAccountOverviewResponse_proactiveInsights' - An integer that specifies the number of open proactive insights in your
-- Amazon Web Services account that were created during the time range
-- passed in.
--
-- 'meanTimeToRecoverInMilliseconds', 'describeAccountOverviewResponse_meanTimeToRecoverInMilliseconds' - The Mean Time to Recover (MTTR) for all closed insights that were
-- created during the time range passed in.
newDescribeAccountOverviewResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  -- | 'reactiveInsights'
  Prelude.Int ->
  -- | 'proactiveInsights'
  Prelude.Int ->
  -- | 'meanTimeToRecoverInMilliseconds'
  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_
      }

-- | The response's http status code.
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)

-- | An integer that specifies the number of open reactive insights in your
-- Amazon Web Services account that were created during the time range
-- passed in.
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)

-- | An integer that specifies the number of open proactive insights in your
-- Amazon Web Services account that were created during the time range
-- passed in.
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)

-- | The Mean Time to Recover (MTTR) for all closed insights that were
-- created during the time range passed in.
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