{-# 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.WorkMail.ListAccessControlRules
(
ListAccessControlRules (..),
newListAccessControlRules,
listAccessControlRules_organizationId,
ListAccessControlRulesResponse (..),
newListAccessControlRulesResponse,
listAccessControlRulesResponse_rules,
listAccessControlRulesResponse_httpStatus,
)
where
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
import Amazonka.WorkMail.Types
data ListAccessControlRules = ListAccessControlRules'
{
ListAccessControlRules -> Text
organizationId :: Prelude.Text
}
deriving (ListAccessControlRules -> ListAccessControlRules -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListAccessControlRules -> ListAccessControlRules -> Bool
$c/= :: ListAccessControlRules -> ListAccessControlRules -> Bool
== :: ListAccessControlRules -> ListAccessControlRules -> Bool
$c== :: ListAccessControlRules -> ListAccessControlRules -> Bool
Prelude.Eq, ReadPrec [ListAccessControlRules]
ReadPrec ListAccessControlRules
Int -> ReadS ListAccessControlRules
ReadS [ListAccessControlRules]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListAccessControlRules]
$creadListPrec :: ReadPrec [ListAccessControlRules]
readPrec :: ReadPrec ListAccessControlRules
$creadPrec :: ReadPrec ListAccessControlRules
readList :: ReadS [ListAccessControlRules]
$creadList :: ReadS [ListAccessControlRules]
readsPrec :: Int -> ReadS ListAccessControlRules
$creadsPrec :: Int -> ReadS ListAccessControlRules
Prelude.Read, Int -> ListAccessControlRules -> ShowS
[ListAccessControlRules] -> ShowS
ListAccessControlRules -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListAccessControlRules] -> ShowS
$cshowList :: [ListAccessControlRules] -> ShowS
show :: ListAccessControlRules -> String
$cshow :: ListAccessControlRules -> String
showsPrec :: Int -> ListAccessControlRules -> ShowS
$cshowsPrec :: Int -> ListAccessControlRules -> ShowS
Prelude.Show, forall x. Rep ListAccessControlRules x -> ListAccessControlRules
forall x. ListAccessControlRules -> Rep ListAccessControlRules x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListAccessControlRules x -> ListAccessControlRules
$cfrom :: forall x. ListAccessControlRules -> Rep ListAccessControlRules x
Prelude.Generic)
newListAccessControlRules ::
Prelude.Text ->
ListAccessControlRules
newListAccessControlRules :: Text -> ListAccessControlRules
newListAccessControlRules Text
pOrganizationId_ =
ListAccessControlRules'
{ $sel:organizationId:ListAccessControlRules' :: Text
organizationId =
Text
pOrganizationId_
}
listAccessControlRules_organizationId :: Lens.Lens' ListAccessControlRules Prelude.Text
listAccessControlRules_organizationId :: Lens' ListAccessControlRules Text
listAccessControlRules_organizationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAccessControlRules' {Text
organizationId :: Text
$sel:organizationId:ListAccessControlRules' :: ListAccessControlRules -> Text
organizationId} -> Text
organizationId) (\s :: ListAccessControlRules
s@ListAccessControlRules' {} Text
a -> ListAccessControlRules
s {$sel:organizationId:ListAccessControlRules' :: Text
organizationId = Text
a} :: ListAccessControlRules)
instance Core.AWSRequest ListAccessControlRules where
type
AWSResponse ListAccessControlRules =
ListAccessControlRulesResponse
request :: (Service -> Service)
-> ListAccessControlRules -> Request ListAccessControlRules
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 ListAccessControlRules
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListAccessControlRules)))
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 [AccessControlRule] -> Int -> ListAccessControlRulesResponse
ListAccessControlRulesResponse'
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
"Rules" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
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 ListAccessControlRules where
hashWithSalt :: Int -> ListAccessControlRules -> Int
hashWithSalt Int
_salt ListAccessControlRules' {Text
organizationId :: Text
$sel:organizationId:ListAccessControlRules' :: ListAccessControlRules -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
organizationId
instance Prelude.NFData ListAccessControlRules where
rnf :: ListAccessControlRules -> ()
rnf ListAccessControlRules' {Text
organizationId :: Text
$sel:organizationId:ListAccessControlRules' :: ListAccessControlRules -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
organizationId
instance Data.ToHeaders ListAccessControlRules where
toHeaders :: ListAccessControlRules -> 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
"WorkMailService.ListAccessControlRules" ::
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 ListAccessControlRules where
toJSON :: ListAccessControlRules -> Value
toJSON ListAccessControlRules' {Text
organizationId :: Text
$sel:organizationId:ListAccessControlRules' :: ListAccessControlRules -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"OrganizationId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
organizationId)
]
)
instance Data.ToPath ListAccessControlRules where
toPath :: ListAccessControlRules -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListAccessControlRules where
toQuery :: ListAccessControlRules -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListAccessControlRulesResponse = ListAccessControlRulesResponse'
{
ListAccessControlRulesResponse -> Maybe [AccessControlRule]
rules :: Prelude.Maybe [AccessControlRule],
ListAccessControlRulesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListAccessControlRulesResponse
-> ListAccessControlRulesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListAccessControlRulesResponse
-> ListAccessControlRulesResponse -> Bool
$c/= :: ListAccessControlRulesResponse
-> ListAccessControlRulesResponse -> Bool
== :: ListAccessControlRulesResponse
-> ListAccessControlRulesResponse -> Bool
$c== :: ListAccessControlRulesResponse
-> ListAccessControlRulesResponse -> Bool
Prelude.Eq, ReadPrec [ListAccessControlRulesResponse]
ReadPrec ListAccessControlRulesResponse
Int -> ReadS ListAccessControlRulesResponse
ReadS [ListAccessControlRulesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListAccessControlRulesResponse]
$creadListPrec :: ReadPrec [ListAccessControlRulesResponse]
readPrec :: ReadPrec ListAccessControlRulesResponse
$creadPrec :: ReadPrec ListAccessControlRulesResponse
readList :: ReadS [ListAccessControlRulesResponse]
$creadList :: ReadS [ListAccessControlRulesResponse]
readsPrec :: Int -> ReadS ListAccessControlRulesResponse
$creadsPrec :: Int -> ReadS ListAccessControlRulesResponse
Prelude.Read, Int -> ListAccessControlRulesResponse -> ShowS
[ListAccessControlRulesResponse] -> ShowS
ListAccessControlRulesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListAccessControlRulesResponse] -> ShowS
$cshowList :: [ListAccessControlRulesResponse] -> ShowS
show :: ListAccessControlRulesResponse -> String
$cshow :: ListAccessControlRulesResponse -> String
showsPrec :: Int -> ListAccessControlRulesResponse -> ShowS
$cshowsPrec :: Int -> ListAccessControlRulesResponse -> ShowS
Prelude.Show, forall x.
Rep ListAccessControlRulesResponse x
-> ListAccessControlRulesResponse
forall x.
ListAccessControlRulesResponse
-> Rep ListAccessControlRulesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListAccessControlRulesResponse x
-> ListAccessControlRulesResponse
$cfrom :: forall x.
ListAccessControlRulesResponse
-> Rep ListAccessControlRulesResponse x
Prelude.Generic)
newListAccessControlRulesResponse ::
Prelude.Int ->
ListAccessControlRulesResponse
newListAccessControlRulesResponse :: Int -> ListAccessControlRulesResponse
newListAccessControlRulesResponse Int
pHttpStatus_ =
ListAccessControlRulesResponse'
{ $sel:rules:ListAccessControlRulesResponse' :: Maybe [AccessControlRule]
rules =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListAccessControlRulesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listAccessControlRulesResponse_rules :: Lens.Lens' ListAccessControlRulesResponse (Prelude.Maybe [AccessControlRule])
listAccessControlRulesResponse_rules :: Lens' ListAccessControlRulesResponse (Maybe [AccessControlRule])
listAccessControlRulesResponse_rules = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAccessControlRulesResponse' {Maybe [AccessControlRule]
rules :: Maybe [AccessControlRule]
$sel:rules:ListAccessControlRulesResponse' :: ListAccessControlRulesResponse -> Maybe [AccessControlRule]
rules} -> Maybe [AccessControlRule]
rules) (\s :: ListAccessControlRulesResponse
s@ListAccessControlRulesResponse' {} Maybe [AccessControlRule]
a -> ListAccessControlRulesResponse
s {$sel:rules:ListAccessControlRulesResponse' :: Maybe [AccessControlRule]
rules = Maybe [AccessControlRule]
a} :: ListAccessControlRulesResponse) 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 s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
listAccessControlRulesResponse_httpStatus :: Lens.Lens' ListAccessControlRulesResponse Prelude.Int
listAccessControlRulesResponse_httpStatus :: Lens' ListAccessControlRulesResponse Int
listAccessControlRulesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAccessControlRulesResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListAccessControlRulesResponse' :: ListAccessControlRulesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListAccessControlRulesResponse
s@ListAccessControlRulesResponse' {} Int
a -> ListAccessControlRulesResponse
s {$sel:httpStatus:ListAccessControlRulesResponse' :: Int
httpStatus = Int
a} :: ListAccessControlRulesResponse)
instance
Prelude.NFData
ListAccessControlRulesResponse
where
rnf :: ListAccessControlRulesResponse -> ()
rnf ListAccessControlRulesResponse' {Int
Maybe [AccessControlRule]
httpStatus :: Int
rules :: Maybe [AccessControlRule]
$sel:httpStatus:ListAccessControlRulesResponse' :: ListAccessControlRulesResponse -> Int
$sel:rules:ListAccessControlRulesResponse' :: ListAccessControlRulesResponse -> Maybe [AccessControlRule]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [AccessControlRule]
rules
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus