{-# 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.DeleteMobileDeviceAccessRule
(
DeleteMobileDeviceAccessRule (..),
newDeleteMobileDeviceAccessRule,
deleteMobileDeviceAccessRule_organizationId,
deleteMobileDeviceAccessRule_mobileDeviceAccessRuleId,
DeleteMobileDeviceAccessRuleResponse (..),
newDeleteMobileDeviceAccessRuleResponse,
deleteMobileDeviceAccessRuleResponse_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 DeleteMobileDeviceAccessRule = DeleteMobileDeviceAccessRule'
{
DeleteMobileDeviceAccessRule -> Text
organizationId :: Prelude.Text,
DeleteMobileDeviceAccessRule -> Text
mobileDeviceAccessRuleId :: Prelude.Text
}
deriving (DeleteMobileDeviceAccessRule
-> DeleteMobileDeviceAccessRule -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteMobileDeviceAccessRule
-> DeleteMobileDeviceAccessRule -> Bool
$c/= :: DeleteMobileDeviceAccessRule
-> DeleteMobileDeviceAccessRule -> Bool
== :: DeleteMobileDeviceAccessRule
-> DeleteMobileDeviceAccessRule -> Bool
$c== :: DeleteMobileDeviceAccessRule
-> DeleteMobileDeviceAccessRule -> Bool
Prelude.Eq, ReadPrec [DeleteMobileDeviceAccessRule]
ReadPrec DeleteMobileDeviceAccessRule
Int -> ReadS DeleteMobileDeviceAccessRule
ReadS [DeleteMobileDeviceAccessRule]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteMobileDeviceAccessRule]
$creadListPrec :: ReadPrec [DeleteMobileDeviceAccessRule]
readPrec :: ReadPrec DeleteMobileDeviceAccessRule
$creadPrec :: ReadPrec DeleteMobileDeviceAccessRule
readList :: ReadS [DeleteMobileDeviceAccessRule]
$creadList :: ReadS [DeleteMobileDeviceAccessRule]
readsPrec :: Int -> ReadS DeleteMobileDeviceAccessRule
$creadsPrec :: Int -> ReadS DeleteMobileDeviceAccessRule
Prelude.Read, Int -> DeleteMobileDeviceAccessRule -> ShowS
[DeleteMobileDeviceAccessRule] -> ShowS
DeleteMobileDeviceAccessRule -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteMobileDeviceAccessRule] -> ShowS
$cshowList :: [DeleteMobileDeviceAccessRule] -> ShowS
show :: DeleteMobileDeviceAccessRule -> String
$cshow :: DeleteMobileDeviceAccessRule -> String
showsPrec :: Int -> DeleteMobileDeviceAccessRule -> ShowS
$cshowsPrec :: Int -> DeleteMobileDeviceAccessRule -> ShowS
Prelude.Show, forall x.
Rep DeleteMobileDeviceAccessRule x -> DeleteMobileDeviceAccessRule
forall x.
DeleteMobileDeviceAccessRule -> Rep DeleteMobileDeviceAccessRule x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteMobileDeviceAccessRule x -> DeleteMobileDeviceAccessRule
$cfrom :: forall x.
DeleteMobileDeviceAccessRule -> Rep DeleteMobileDeviceAccessRule x
Prelude.Generic)
newDeleteMobileDeviceAccessRule ::
Prelude.Text ->
Prelude.Text ->
DeleteMobileDeviceAccessRule
newDeleteMobileDeviceAccessRule :: Text -> Text -> DeleteMobileDeviceAccessRule
newDeleteMobileDeviceAccessRule
Text
pOrganizationId_
Text
pMobileDeviceAccessRuleId_ =
DeleteMobileDeviceAccessRule'
{ $sel:organizationId:DeleteMobileDeviceAccessRule' :: Text
organizationId =
Text
pOrganizationId_,
$sel:mobileDeviceAccessRuleId:DeleteMobileDeviceAccessRule' :: Text
mobileDeviceAccessRuleId =
Text
pMobileDeviceAccessRuleId_
}
deleteMobileDeviceAccessRule_organizationId :: Lens.Lens' DeleteMobileDeviceAccessRule Prelude.Text
deleteMobileDeviceAccessRule_organizationId :: Lens' DeleteMobileDeviceAccessRule Text
deleteMobileDeviceAccessRule_organizationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteMobileDeviceAccessRule' {Text
organizationId :: Text
$sel:organizationId:DeleteMobileDeviceAccessRule' :: DeleteMobileDeviceAccessRule -> Text
organizationId} -> Text
organizationId) (\s :: DeleteMobileDeviceAccessRule
s@DeleteMobileDeviceAccessRule' {} Text
a -> DeleteMobileDeviceAccessRule
s {$sel:organizationId:DeleteMobileDeviceAccessRule' :: Text
organizationId = Text
a} :: DeleteMobileDeviceAccessRule)
deleteMobileDeviceAccessRule_mobileDeviceAccessRuleId :: Lens.Lens' DeleteMobileDeviceAccessRule Prelude.Text
deleteMobileDeviceAccessRule_mobileDeviceAccessRuleId :: Lens' DeleteMobileDeviceAccessRule Text
deleteMobileDeviceAccessRule_mobileDeviceAccessRuleId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteMobileDeviceAccessRule' {Text
mobileDeviceAccessRuleId :: Text
$sel:mobileDeviceAccessRuleId:DeleteMobileDeviceAccessRule' :: DeleteMobileDeviceAccessRule -> Text
mobileDeviceAccessRuleId} -> Text
mobileDeviceAccessRuleId) (\s :: DeleteMobileDeviceAccessRule
s@DeleteMobileDeviceAccessRule' {} Text
a -> DeleteMobileDeviceAccessRule
s {$sel:mobileDeviceAccessRuleId:DeleteMobileDeviceAccessRule' :: Text
mobileDeviceAccessRuleId = Text
a} :: DeleteMobileDeviceAccessRule)
instance Core.AWSRequest DeleteMobileDeviceAccessRule where
type
AWSResponse DeleteMobileDeviceAccessRule =
DeleteMobileDeviceAccessRuleResponse
request :: (Service -> Service)
-> DeleteMobileDeviceAccessRule
-> Request DeleteMobileDeviceAccessRule
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 DeleteMobileDeviceAccessRule
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteMobileDeviceAccessRule)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> DeleteMobileDeviceAccessRuleResponse
DeleteMobileDeviceAccessRuleResponse'
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))
)
instance
Prelude.Hashable
DeleteMobileDeviceAccessRule
where
hashWithSalt :: Int -> DeleteMobileDeviceAccessRule -> Int
hashWithSalt Int
_salt DeleteMobileDeviceAccessRule' {Text
mobileDeviceAccessRuleId :: Text
organizationId :: Text
$sel:mobileDeviceAccessRuleId:DeleteMobileDeviceAccessRule' :: DeleteMobileDeviceAccessRule -> Text
$sel:organizationId:DeleteMobileDeviceAccessRule' :: DeleteMobileDeviceAccessRule -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
organizationId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
mobileDeviceAccessRuleId
instance Prelude.NFData DeleteMobileDeviceAccessRule where
rnf :: DeleteMobileDeviceAccessRule -> ()
rnf DeleteMobileDeviceAccessRule' {Text
mobileDeviceAccessRuleId :: Text
organizationId :: Text
$sel:mobileDeviceAccessRuleId:DeleteMobileDeviceAccessRule' :: DeleteMobileDeviceAccessRule -> Text
$sel:organizationId:DeleteMobileDeviceAccessRule' :: DeleteMobileDeviceAccessRule -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
organizationId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
mobileDeviceAccessRuleId
instance Data.ToHeaders DeleteMobileDeviceAccessRule where
toHeaders :: DeleteMobileDeviceAccessRule -> 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.DeleteMobileDeviceAccessRule" ::
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 DeleteMobileDeviceAccessRule where
toJSON :: DeleteMobileDeviceAccessRule -> Value
toJSON DeleteMobileDeviceAccessRule' {Text
mobileDeviceAccessRuleId :: Text
organizationId :: Text
$sel:mobileDeviceAccessRuleId:DeleteMobileDeviceAccessRule' :: DeleteMobileDeviceAccessRule -> Text
$sel:organizationId:DeleteMobileDeviceAccessRule' :: DeleteMobileDeviceAccessRule -> 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),
forall a. a -> Maybe a
Prelude.Just
( Key
"MobileDeviceAccessRuleId"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
mobileDeviceAccessRuleId
)
]
)
instance Data.ToPath DeleteMobileDeviceAccessRule where
toPath :: DeleteMobileDeviceAccessRule -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteMobileDeviceAccessRule where
toQuery :: DeleteMobileDeviceAccessRule -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteMobileDeviceAccessRuleResponse = DeleteMobileDeviceAccessRuleResponse'
{
DeleteMobileDeviceAccessRuleResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteMobileDeviceAccessRuleResponse
-> DeleteMobileDeviceAccessRuleResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteMobileDeviceAccessRuleResponse
-> DeleteMobileDeviceAccessRuleResponse -> Bool
$c/= :: DeleteMobileDeviceAccessRuleResponse
-> DeleteMobileDeviceAccessRuleResponse -> Bool
== :: DeleteMobileDeviceAccessRuleResponse
-> DeleteMobileDeviceAccessRuleResponse -> Bool
$c== :: DeleteMobileDeviceAccessRuleResponse
-> DeleteMobileDeviceAccessRuleResponse -> Bool
Prelude.Eq, ReadPrec [DeleteMobileDeviceAccessRuleResponse]
ReadPrec DeleteMobileDeviceAccessRuleResponse
Int -> ReadS DeleteMobileDeviceAccessRuleResponse
ReadS [DeleteMobileDeviceAccessRuleResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteMobileDeviceAccessRuleResponse]
$creadListPrec :: ReadPrec [DeleteMobileDeviceAccessRuleResponse]
readPrec :: ReadPrec DeleteMobileDeviceAccessRuleResponse
$creadPrec :: ReadPrec DeleteMobileDeviceAccessRuleResponse
readList :: ReadS [DeleteMobileDeviceAccessRuleResponse]
$creadList :: ReadS [DeleteMobileDeviceAccessRuleResponse]
readsPrec :: Int -> ReadS DeleteMobileDeviceAccessRuleResponse
$creadsPrec :: Int -> ReadS DeleteMobileDeviceAccessRuleResponse
Prelude.Read, Int -> DeleteMobileDeviceAccessRuleResponse -> ShowS
[DeleteMobileDeviceAccessRuleResponse] -> ShowS
DeleteMobileDeviceAccessRuleResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteMobileDeviceAccessRuleResponse] -> ShowS
$cshowList :: [DeleteMobileDeviceAccessRuleResponse] -> ShowS
show :: DeleteMobileDeviceAccessRuleResponse -> String
$cshow :: DeleteMobileDeviceAccessRuleResponse -> String
showsPrec :: Int -> DeleteMobileDeviceAccessRuleResponse -> ShowS
$cshowsPrec :: Int -> DeleteMobileDeviceAccessRuleResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteMobileDeviceAccessRuleResponse x
-> DeleteMobileDeviceAccessRuleResponse
forall x.
DeleteMobileDeviceAccessRuleResponse
-> Rep DeleteMobileDeviceAccessRuleResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteMobileDeviceAccessRuleResponse x
-> DeleteMobileDeviceAccessRuleResponse
$cfrom :: forall x.
DeleteMobileDeviceAccessRuleResponse
-> Rep DeleteMobileDeviceAccessRuleResponse x
Prelude.Generic)
newDeleteMobileDeviceAccessRuleResponse ::
Prelude.Int ->
DeleteMobileDeviceAccessRuleResponse
newDeleteMobileDeviceAccessRuleResponse :: Int -> DeleteMobileDeviceAccessRuleResponse
newDeleteMobileDeviceAccessRuleResponse Int
pHttpStatus_ =
DeleteMobileDeviceAccessRuleResponse'
{ $sel:httpStatus:DeleteMobileDeviceAccessRuleResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteMobileDeviceAccessRuleResponse_httpStatus :: Lens.Lens' DeleteMobileDeviceAccessRuleResponse Prelude.Int
deleteMobileDeviceAccessRuleResponse_httpStatus :: Lens' DeleteMobileDeviceAccessRuleResponse Int
deleteMobileDeviceAccessRuleResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteMobileDeviceAccessRuleResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteMobileDeviceAccessRuleResponse' :: DeleteMobileDeviceAccessRuleResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteMobileDeviceAccessRuleResponse
s@DeleteMobileDeviceAccessRuleResponse' {} Int
a -> DeleteMobileDeviceAccessRuleResponse
s {$sel:httpStatus:DeleteMobileDeviceAccessRuleResponse' :: Int
httpStatus = Int
a} :: DeleteMobileDeviceAccessRuleResponse)
instance
Prelude.NFData
DeleteMobileDeviceAccessRuleResponse
where
rnf :: DeleteMobileDeviceAccessRuleResponse -> ()
rnf DeleteMobileDeviceAccessRuleResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteMobileDeviceAccessRuleResponse' :: DeleteMobileDeviceAccessRuleResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus