{-# 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.EnableHealthServiceAccessForOrganization
(
EnableHealthServiceAccessForOrganization (..),
newEnableHealthServiceAccessForOrganization,
EnableHealthServiceAccessForOrganizationResponse (..),
newEnableHealthServiceAccessForOrganizationResponse,
)
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 EnableHealthServiceAccessForOrganization = EnableHealthServiceAccessForOrganization'
{
}
deriving (EnableHealthServiceAccessForOrganization
-> EnableHealthServiceAccessForOrganization -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnableHealthServiceAccessForOrganization
-> EnableHealthServiceAccessForOrganization -> Bool
$c/= :: EnableHealthServiceAccessForOrganization
-> EnableHealthServiceAccessForOrganization -> Bool
== :: EnableHealthServiceAccessForOrganization
-> EnableHealthServiceAccessForOrganization -> Bool
$c== :: EnableHealthServiceAccessForOrganization
-> EnableHealthServiceAccessForOrganization -> Bool
Prelude.Eq, ReadPrec [EnableHealthServiceAccessForOrganization]
ReadPrec EnableHealthServiceAccessForOrganization
Int -> ReadS EnableHealthServiceAccessForOrganization
ReadS [EnableHealthServiceAccessForOrganization]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [EnableHealthServiceAccessForOrganization]
$creadListPrec :: ReadPrec [EnableHealthServiceAccessForOrganization]
readPrec :: ReadPrec EnableHealthServiceAccessForOrganization
$creadPrec :: ReadPrec EnableHealthServiceAccessForOrganization
readList :: ReadS [EnableHealthServiceAccessForOrganization]
$creadList :: ReadS [EnableHealthServiceAccessForOrganization]
readsPrec :: Int -> ReadS EnableHealthServiceAccessForOrganization
$creadsPrec :: Int -> ReadS EnableHealthServiceAccessForOrganization
Prelude.Read, Int -> EnableHealthServiceAccessForOrganization -> ShowS
[EnableHealthServiceAccessForOrganization] -> ShowS
EnableHealthServiceAccessForOrganization -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EnableHealthServiceAccessForOrganization] -> ShowS
$cshowList :: [EnableHealthServiceAccessForOrganization] -> ShowS
show :: EnableHealthServiceAccessForOrganization -> String
$cshow :: EnableHealthServiceAccessForOrganization -> String
showsPrec :: Int -> EnableHealthServiceAccessForOrganization -> ShowS
$cshowsPrec :: Int -> EnableHealthServiceAccessForOrganization -> ShowS
Prelude.Show, forall x.
Rep EnableHealthServiceAccessForOrganization x
-> EnableHealthServiceAccessForOrganization
forall x.
EnableHealthServiceAccessForOrganization
-> Rep EnableHealthServiceAccessForOrganization x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep EnableHealthServiceAccessForOrganization x
-> EnableHealthServiceAccessForOrganization
$cfrom :: forall x.
EnableHealthServiceAccessForOrganization
-> Rep EnableHealthServiceAccessForOrganization x
Prelude.Generic)
newEnableHealthServiceAccessForOrganization ::
EnableHealthServiceAccessForOrganization
newEnableHealthServiceAccessForOrganization :: EnableHealthServiceAccessForOrganization
newEnableHealthServiceAccessForOrganization =
EnableHealthServiceAccessForOrganization
EnableHealthServiceAccessForOrganization'
instance
Core.AWSRequest
EnableHealthServiceAccessForOrganization
where
type
AWSResponse
EnableHealthServiceAccessForOrganization =
EnableHealthServiceAccessForOrganizationResponse
request :: (Service -> Service)
-> EnableHealthServiceAccessForOrganization
-> Request EnableHealthServiceAccessForOrganization
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 EnableHealthServiceAccessForOrganization
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse EnableHealthServiceAccessForOrganization)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
EnableHealthServiceAccessForOrganizationResponse
EnableHealthServiceAccessForOrganizationResponse'
instance
Prelude.Hashable
EnableHealthServiceAccessForOrganization
where
hashWithSalt :: Int -> EnableHealthServiceAccessForOrganization -> Int
hashWithSalt Int
_salt EnableHealthServiceAccessForOrganization
_ =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ()
instance
Prelude.NFData
EnableHealthServiceAccessForOrganization
where
rnf :: EnableHealthServiceAccessForOrganization -> ()
rnf EnableHealthServiceAccessForOrganization
_ = ()
instance
Data.ToHeaders
EnableHealthServiceAccessForOrganization
where
toHeaders :: EnableHealthServiceAccessForOrganization -> [Header]
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 -> [Header]
Data.=# ( ByteString
"AWSHealth_20160804.EnableHealthServiceAccessForOrganization" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance
Data.ToJSON
EnableHealthServiceAccessForOrganization
where
toJSON :: EnableHealthServiceAccessForOrganization -> Value
toJSON = forall a b. a -> b -> a
Prelude.const (Object -> Value
Data.Object forall a. Monoid a => a
Prelude.mempty)
instance
Data.ToPath
EnableHealthServiceAccessForOrganization
where
toPath :: EnableHealthServiceAccessForOrganization -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
EnableHealthServiceAccessForOrganization
where
toQuery :: EnableHealthServiceAccessForOrganization -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data EnableHealthServiceAccessForOrganizationResponse = EnableHealthServiceAccessForOrganizationResponse'
{
}
deriving (EnableHealthServiceAccessForOrganizationResponse
-> EnableHealthServiceAccessForOrganizationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnableHealthServiceAccessForOrganizationResponse
-> EnableHealthServiceAccessForOrganizationResponse -> Bool
$c/= :: EnableHealthServiceAccessForOrganizationResponse
-> EnableHealthServiceAccessForOrganizationResponse -> Bool
== :: EnableHealthServiceAccessForOrganizationResponse
-> EnableHealthServiceAccessForOrganizationResponse -> Bool
$c== :: EnableHealthServiceAccessForOrganizationResponse
-> EnableHealthServiceAccessForOrganizationResponse -> Bool
Prelude.Eq, ReadPrec [EnableHealthServiceAccessForOrganizationResponse]
ReadPrec EnableHealthServiceAccessForOrganizationResponse
Int -> ReadS EnableHealthServiceAccessForOrganizationResponse
ReadS [EnableHealthServiceAccessForOrganizationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [EnableHealthServiceAccessForOrganizationResponse]
$creadListPrec :: ReadPrec [EnableHealthServiceAccessForOrganizationResponse]
readPrec :: ReadPrec EnableHealthServiceAccessForOrganizationResponse
$creadPrec :: ReadPrec EnableHealthServiceAccessForOrganizationResponse
readList :: ReadS [EnableHealthServiceAccessForOrganizationResponse]
$creadList :: ReadS [EnableHealthServiceAccessForOrganizationResponse]
readsPrec :: Int -> ReadS EnableHealthServiceAccessForOrganizationResponse
$creadsPrec :: Int -> ReadS EnableHealthServiceAccessForOrganizationResponse
Prelude.Read, Int -> EnableHealthServiceAccessForOrganizationResponse -> ShowS
[EnableHealthServiceAccessForOrganizationResponse] -> ShowS
EnableHealthServiceAccessForOrganizationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EnableHealthServiceAccessForOrganizationResponse] -> ShowS
$cshowList :: [EnableHealthServiceAccessForOrganizationResponse] -> ShowS
show :: EnableHealthServiceAccessForOrganizationResponse -> String
$cshow :: EnableHealthServiceAccessForOrganizationResponse -> String
showsPrec :: Int -> EnableHealthServiceAccessForOrganizationResponse -> ShowS
$cshowsPrec :: Int -> EnableHealthServiceAccessForOrganizationResponse -> ShowS
Prelude.Show, forall x.
Rep EnableHealthServiceAccessForOrganizationResponse x
-> EnableHealthServiceAccessForOrganizationResponse
forall x.
EnableHealthServiceAccessForOrganizationResponse
-> Rep EnableHealthServiceAccessForOrganizationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep EnableHealthServiceAccessForOrganizationResponse x
-> EnableHealthServiceAccessForOrganizationResponse
$cfrom :: forall x.
EnableHealthServiceAccessForOrganizationResponse
-> Rep EnableHealthServiceAccessForOrganizationResponse x
Prelude.Generic)
newEnableHealthServiceAccessForOrganizationResponse ::
EnableHealthServiceAccessForOrganizationResponse
newEnableHealthServiceAccessForOrganizationResponse :: EnableHealthServiceAccessForOrganizationResponse
newEnableHealthServiceAccessForOrganizationResponse =
EnableHealthServiceAccessForOrganizationResponse
EnableHealthServiceAccessForOrganizationResponse'
instance
Prelude.NFData
EnableHealthServiceAccessForOrganizationResponse
where
rnf :: EnableHealthServiceAccessForOrganizationResponse -> ()
rnf EnableHealthServiceAccessForOrganizationResponse
_ = ()