{-# 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.AWSHealth.DescribeHealthServiceStatusForOrganization
(
DescribeHealthServiceStatusForOrganization (..),
newDescribeHealthServiceStatusForOrganization,
DescribeHealthServiceStatusForOrganizationResponse (..),
newDescribeHealthServiceStatusForOrganizationResponse,
describeHealthServiceStatusForOrganizationResponse_healthServiceAccessStatusForOrganization,
describeHealthServiceStatusForOrganizationResponse_httpStatus,
)
where
import Amazonka.AWSHealth.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 DescribeHealthServiceStatusForOrganization = DescribeHealthServiceStatusForOrganization'
{
}
deriving (DescribeHealthServiceStatusForOrganization
-> DescribeHealthServiceStatusForOrganization -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeHealthServiceStatusForOrganization
-> DescribeHealthServiceStatusForOrganization -> Bool
$c/= :: DescribeHealthServiceStatusForOrganization
-> DescribeHealthServiceStatusForOrganization -> Bool
== :: DescribeHealthServiceStatusForOrganization
-> DescribeHealthServiceStatusForOrganization -> Bool
$c== :: DescribeHealthServiceStatusForOrganization
-> DescribeHealthServiceStatusForOrganization -> Bool
Prelude.Eq, ReadPrec [DescribeHealthServiceStatusForOrganization]
ReadPrec DescribeHealthServiceStatusForOrganization
Int -> ReadS DescribeHealthServiceStatusForOrganization
ReadS [DescribeHealthServiceStatusForOrganization]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeHealthServiceStatusForOrganization]
$creadListPrec :: ReadPrec [DescribeHealthServiceStatusForOrganization]
readPrec :: ReadPrec DescribeHealthServiceStatusForOrganization
$creadPrec :: ReadPrec DescribeHealthServiceStatusForOrganization
readList :: ReadS [DescribeHealthServiceStatusForOrganization]
$creadList :: ReadS [DescribeHealthServiceStatusForOrganization]
readsPrec :: Int -> ReadS DescribeHealthServiceStatusForOrganization
$creadsPrec :: Int -> ReadS DescribeHealthServiceStatusForOrganization
Prelude.Read, Int -> DescribeHealthServiceStatusForOrganization -> ShowS
[DescribeHealthServiceStatusForOrganization] -> ShowS
DescribeHealthServiceStatusForOrganization -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeHealthServiceStatusForOrganization] -> ShowS
$cshowList :: [DescribeHealthServiceStatusForOrganization] -> ShowS
show :: DescribeHealthServiceStatusForOrganization -> String
$cshow :: DescribeHealthServiceStatusForOrganization -> String
showsPrec :: Int -> DescribeHealthServiceStatusForOrganization -> ShowS
$cshowsPrec :: Int -> DescribeHealthServiceStatusForOrganization -> ShowS
Prelude.Show, forall x.
Rep DescribeHealthServiceStatusForOrganization x
-> DescribeHealthServiceStatusForOrganization
forall x.
DescribeHealthServiceStatusForOrganization
-> Rep DescribeHealthServiceStatusForOrganization x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeHealthServiceStatusForOrganization x
-> DescribeHealthServiceStatusForOrganization
$cfrom :: forall x.
DescribeHealthServiceStatusForOrganization
-> Rep DescribeHealthServiceStatusForOrganization x
Prelude.Generic)
newDescribeHealthServiceStatusForOrganization ::
DescribeHealthServiceStatusForOrganization
newDescribeHealthServiceStatusForOrganization :: DescribeHealthServiceStatusForOrganization
newDescribeHealthServiceStatusForOrganization =
DescribeHealthServiceStatusForOrganization
DescribeHealthServiceStatusForOrganization'
instance
Core.AWSRequest
DescribeHealthServiceStatusForOrganization
where
type
AWSResponse
DescribeHealthServiceStatusForOrganization =
DescribeHealthServiceStatusForOrganizationResponse
request :: (Service -> Service)
-> DescribeHealthServiceStatusForOrganization
-> Request DescribeHealthServiceStatusForOrganization
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 DescribeHealthServiceStatusForOrganization
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DescribeHealthServiceStatusForOrganization)))
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
-> Int -> DescribeHealthServiceStatusForOrganizationResponse
DescribeHealthServiceStatusForOrganizationResponse'
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
"healthServiceAccessStatusForOrganization"
)
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
DescribeHealthServiceStatusForOrganization
where
hashWithSalt :: Int -> DescribeHealthServiceStatusForOrganization -> Int
hashWithSalt Int
_salt DescribeHealthServiceStatusForOrganization
_ =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ()
instance
Prelude.NFData
DescribeHealthServiceStatusForOrganization
where
rnf :: DescribeHealthServiceStatusForOrganization -> ()
rnf DescribeHealthServiceStatusForOrganization
_ = ()
instance
Data.ToHeaders
DescribeHealthServiceStatusForOrganization
where
toHeaders :: DescribeHealthServiceStatusForOrganization -> 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
"AWSHealth_20160804.DescribeHealthServiceStatusForOrganization" ::
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
DescribeHealthServiceStatusForOrganization
where
toJSON :: DescribeHealthServiceStatusForOrganization -> Value
toJSON = forall a b. a -> b -> a
Prelude.const (Object -> Value
Data.Object forall a. Monoid a => a
Prelude.mempty)
instance
Data.ToPath
DescribeHealthServiceStatusForOrganization
where
toPath :: DescribeHealthServiceStatusForOrganization -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DescribeHealthServiceStatusForOrganization
where
toQuery :: DescribeHealthServiceStatusForOrganization -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeHealthServiceStatusForOrganizationResponse = DescribeHealthServiceStatusForOrganizationResponse'
{
DescribeHealthServiceStatusForOrganizationResponse -> Maybe Text
healthServiceAccessStatusForOrganization :: Prelude.Maybe Prelude.Text,
DescribeHealthServiceStatusForOrganizationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeHealthServiceStatusForOrganizationResponse
-> DescribeHealthServiceStatusForOrganizationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeHealthServiceStatusForOrganizationResponse
-> DescribeHealthServiceStatusForOrganizationResponse -> Bool
$c/= :: DescribeHealthServiceStatusForOrganizationResponse
-> DescribeHealthServiceStatusForOrganizationResponse -> Bool
== :: DescribeHealthServiceStatusForOrganizationResponse
-> DescribeHealthServiceStatusForOrganizationResponse -> Bool
$c== :: DescribeHealthServiceStatusForOrganizationResponse
-> DescribeHealthServiceStatusForOrganizationResponse -> Bool
Prelude.Eq, ReadPrec [DescribeHealthServiceStatusForOrganizationResponse]
ReadPrec DescribeHealthServiceStatusForOrganizationResponse
Int -> ReadS DescribeHealthServiceStatusForOrganizationResponse
ReadS [DescribeHealthServiceStatusForOrganizationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeHealthServiceStatusForOrganizationResponse]
$creadListPrec :: ReadPrec [DescribeHealthServiceStatusForOrganizationResponse]
readPrec :: ReadPrec DescribeHealthServiceStatusForOrganizationResponse
$creadPrec :: ReadPrec DescribeHealthServiceStatusForOrganizationResponse
readList :: ReadS [DescribeHealthServiceStatusForOrganizationResponse]
$creadList :: ReadS [DescribeHealthServiceStatusForOrganizationResponse]
readsPrec :: Int -> ReadS DescribeHealthServiceStatusForOrganizationResponse
$creadsPrec :: Int -> ReadS DescribeHealthServiceStatusForOrganizationResponse
Prelude.Read, Int -> DescribeHealthServiceStatusForOrganizationResponse -> ShowS
[DescribeHealthServiceStatusForOrganizationResponse] -> ShowS
DescribeHealthServiceStatusForOrganizationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeHealthServiceStatusForOrganizationResponse] -> ShowS
$cshowList :: [DescribeHealthServiceStatusForOrganizationResponse] -> ShowS
show :: DescribeHealthServiceStatusForOrganizationResponse -> String
$cshow :: DescribeHealthServiceStatusForOrganizationResponse -> String
showsPrec :: Int -> DescribeHealthServiceStatusForOrganizationResponse -> ShowS
$cshowsPrec :: Int -> DescribeHealthServiceStatusForOrganizationResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeHealthServiceStatusForOrganizationResponse x
-> DescribeHealthServiceStatusForOrganizationResponse
forall x.
DescribeHealthServiceStatusForOrganizationResponse
-> Rep DescribeHealthServiceStatusForOrganizationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeHealthServiceStatusForOrganizationResponse x
-> DescribeHealthServiceStatusForOrganizationResponse
$cfrom :: forall x.
DescribeHealthServiceStatusForOrganizationResponse
-> Rep DescribeHealthServiceStatusForOrganizationResponse x
Prelude.Generic)
newDescribeHealthServiceStatusForOrganizationResponse ::
Prelude.Int ->
DescribeHealthServiceStatusForOrganizationResponse
newDescribeHealthServiceStatusForOrganizationResponse :: Int -> DescribeHealthServiceStatusForOrganizationResponse
newDescribeHealthServiceStatusForOrganizationResponse
Int
pHttpStatus_ =
DescribeHealthServiceStatusForOrganizationResponse'
{ $sel:healthServiceAccessStatusForOrganization:DescribeHealthServiceStatusForOrganizationResponse' :: Maybe Text
healthServiceAccessStatusForOrganization =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeHealthServiceStatusForOrganizationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
describeHealthServiceStatusForOrganizationResponse_healthServiceAccessStatusForOrganization :: Lens.Lens' DescribeHealthServiceStatusForOrganizationResponse (Prelude.Maybe Prelude.Text)
describeHealthServiceStatusForOrganizationResponse_healthServiceAccessStatusForOrganization :: Lens'
DescribeHealthServiceStatusForOrganizationResponse (Maybe Text)
describeHealthServiceStatusForOrganizationResponse_healthServiceAccessStatusForOrganization = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHealthServiceStatusForOrganizationResponse' {Maybe Text
healthServiceAccessStatusForOrganization :: Maybe Text
$sel:healthServiceAccessStatusForOrganization:DescribeHealthServiceStatusForOrganizationResponse' :: DescribeHealthServiceStatusForOrganizationResponse -> Maybe Text
healthServiceAccessStatusForOrganization} -> Maybe Text
healthServiceAccessStatusForOrganization) (\s :: DescribeHealthServiceStatusForOrganizationResponse
s@DescribeHealthServiceStatusForOrganizationResponse' {} Maybe Text
a -> DescribeHealthServiceStatusForOrganizationResponse
s {$sel:healthServiceAccessStatusForOrganization:DescribeHealthServiceStatusForOrganizationResponse' :: Maybe Text
healthServiceAccessStatusForOrganization = Maybe Text
a} :: DescribeHealthServiceStatusForOrganizationResponse)
describeHealthServiceStatusForOrganizationResponse_httpStatus :: Lens.Lens' DescribeHealthServiceStatusForOrganizationResponse Prelude.Int
describeHealthServiceStatusForOrganizationResponse_httpStatus :: Lens' DescribeHealthServiceStatusForOrganizationResponse Int
describeHealthServiceStatusForOrganizationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHealthServiceStatusForOrganizationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeHealthServiceStatusForOrganizationResponse' :: DescribeHealthServiceStatusForOrganizationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeHealthServiceStatusForOrganizationResponse
s@DescribeHealthServiceStatusForOrganizationResponse' {} Int
a -> DescribeHealthServiceStatusForOrganizationResponse
s {$sel:httpStatus:DescribeHealthServiceStatusForOrganizationResponse' :: Int
httpStatus = Int
a} :: DescribeHealthServiceStatusForOrganizationResponse)
instance
Prelude.NFData
DescribeHealthServiceStatusForOrganizationResponse
where
rnf :: DescribeHealthServiceStatusForOrganizationResponse -> ()
rnf
DescribeHealthServiceStatusForOrganizationResponse' {Int
Maybe Text
httpStatus :: Int
healthServiceAccessStatusForOrganization :: Maybe Text
$sel:httpStatus:DescribeHealthServiceStatusForOrganizationResponse' :: DescribeHealthServiceStatusForOrganizationResponse -> Int
$sel:healthServiceAccessStatusForOrganization:DescribeHealthServiceStatusForOrganizationResponse' :: DescribeHealthServiceStatusForOrganizationResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
healthServiceAccessStatusForOrganization
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus