{-# 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.AWSHealth.EnableHealthServiceAccessForOrganization
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Enables Health to work with Organizations. You can use the
-- organizational view feature to aggregate events from all Amazon Web
-- Services accounts in your organization in a centralized location.
--
-- This operation also creates a service-linked role for the management
-- account in the organization.
--
-- To call this operation, you must meet the following requirements:
--
-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support
--     plan from
--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>
--     to use the Health API. If you call the Health API from an Amazon Web
--     Services account that doesn\'t have a Business, Enterprise On-Ramp,
--     or Enterprise Support plan, you receive a
--     @SubscriptionRequiredException@ error.
--
-- -   You must have permission to call this operation from the
--     organization\'s management account. For example IAM policies, see
--     <https://docs.aws.amazon.com/health/latest/ug/security_iam_id-based-policy-examples.html Health identity-based policy examples>.
--
-- If you don\'t have the required support plan, you can instead use the
-- Health console to enable the organizational view feature. For more
-- information, see
-- <https://docs.aws.amazon.com/health/latest/ug/aggregate-events.html Aggregating Health events>
-- in the /Health User Guide/.
module Amazonka.AWSHealth.EnableHealthServiceAccessForOrganization
  ( -- * Creating a Request
    EnableHealthServiceAccessForOrganization (..),
    newEnableHealthServiceAccessForOrganization,

    -- * Destructuring the Response
    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

-- | /See:/ 'newEnableHealthServiceAccessForOrganization' smart constructor.
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)

-- |
-- Create a value of 'EnableHealthServiceAccessForOrganization' 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.
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

-- | /See:/ 'newEnableHealthServiceAccessForOrganizationResponse' smart constructor.
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)

-- |
-- Create a value of 'EnableHealthServiceAccessForOrganizationResponse' 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.
newEnableHealthServiceAccessForOrganizationResponse ::
  EnableHealthServiceAccessForOrganizationResponse
newEnableHealthServiceAccessForOrganizationResponse :: EnableHealthServiceAccessForOrganizationResponse
newEnableHealthServiceAccessForOrganizationResponse =
  EnableHealthServiceAccessForOrganizationResponse
EnableHealthServiceAccessForOrganizationResponse'

instance
  Prelude.NFData
    EnableHealthServiceAccessForOrganizationResponse
  where
  rnf :: EnableHealthServiceAccessForOrganizationResponse -> ()
rnf EnableHealthServiceAccessForOrganizationResponse
_ = ()