{-# 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.WorkSpacesWeb.DeleteUserSettings
(
DeleteUserSettings (..),
newDeleteUserSettings,
deleteUserSettings_userSettingsArn,
DeleteUserSettingsResponse (..),
newDeleteUserSettingsResponse,
deleteUserSettingsResponse_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.WorkSpacesWeb.Types
data DeleteUserSettings = DeleteUserSettings'
{
DeleteUserSettings -> Text
userSettingsArn :: Prelude.Text
}
deriving (DeleteUserSettings -> DeleteUserSettings -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteUserSettings -> DeleteUserSettings -> Bool
$c/= :: DeleteUserSettings -> DeleteUserSettings -> Bool
== :: DeleteUserSettings -> DeleteUserSettings -> Bool
$c== :: DeleteUserSettings -> DeleteUserSettings -> Bool
Prelude.Eq, ReadPrec [DeleteUserSettings]
ReadPrec DeleteUserSettings
Int -> ReadS DeleteUserSettings
ReadS [DeleteUserSettings]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteUserSettings]
$creadListPrec :: ReadPrec [DeleteUserSettings]
readPrec :: ReadPrec DeleteUserSettings
$creadPrec :: ReadPrec DeleteUserSettings
readList :: ReadS [DeleteUserSettings]
$creadList :: ReadS [DeleteUserSettings]
readsPrec :: Int -> ReadS DeleteUserSettings
$creadsPrec :: Int -> ReadS DeleteUserSettings
Prelude.Read, Int -> DeleteUserSettings -> ShowS
[DeleteUserSettings] -> ShowS
DeleteUserSettings -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteUserSettings] -> ShowS
$cshowList :: [DeleteUserSettings] -> ShowS
show :: DeleteUserSettings -> String
$cshow :: DeleteUserSettings -> String
showsPrec :: Int -> DeleteUserSettings -> ShowS
$cshowsPrec :: Int -> DeleteUserSettings -> ShowS
Prelude.Show, forall x. Rep DeleteUserSettings x -> DeleteUserSettings
forall x. DeleteUserSettings -> Rep DeleteUserSettings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteUserSettings x -> DeleteUserSettings
$cfrom :: forall x. DeleteUserSettings -> Rep DeleteUserSettings x
Prelude.Generic)
newDeleteUserSettings ::
Prelude.Text ->
DeleteUserSettings
newDeleteUserSettings :: Text -> DeleteUserSettings
newDeleteUserSettings Text
pUserSettingsArn_ =
DeleteUserSettings'
{ $sel:userSettingsArn:DeleteUserSettings' :: Text
userSettingsArn =
Text
pUserSettingsArn_
}
deleteUserSettings_userSettingsArn :: Lens.Lens' DeleteUserSettings Prelude.Text
deleteUserSettings_userSettingsArn :: Lens' DeleteUserSettings Text
deleteUserSettings_userSettingsArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteUserSettings' {Text
userSettingsArn :: Text
$sel:userSettingsArn:DeleteUserSettings' :: DeleteUserSettings -> Text
userSettingsArn} -> Text
userSettingsArn) (\s :: DeleteUserSettings
s@DeleteUserSettings' {} Text
a -> DeleteUserSettings
s {$sel:userSettingsArn:DeleteUserSettings' :: Text
userSettingsArn = Text
a} :: DeleteUserSettings)
instance Core.AWSRequest DeleteUserSettings where
type
AWSResponse DeleteUserSettings =
DeleteUserSettingsResponse
request :: (Service -> Service)
-> DeleteUserSettings -> Request DeleteUserSettings
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteUserSettings
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteUserSettings)))
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 -> DeleteUserSettingsResponse
DeleteUserSettingsResponse'
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 DeleteUserSettings where
hashWithSalt :: Int -> DeleteUserSettings -> Int
hashWithSalt Int
_salt DeleteUserSettings' {Text
userSettingsArn :: Text
$sel:userSettingsArn:DeleteUserSettings' :: DeleteUserSettings -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userSettingsArn
instance Prelude.NFData DeleteUserSettings where
rnf :: DeleteUserSettings -> ()
rnf DeleteUserSettings' {Text
userSettingsArn :: Text
$sel:userSettingsArn:DeleteUserSettings' :: DeleteUserSettings -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
userSettingsArn
instance Data.ToHeaders DeleteUserSettings where
toHeaders :: DeleteUserSettings -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DeleteUserSettings where
toPath :: DeleteUserSettings -> ByteString
toPath DeleteUserSettings' {Text
userSettingsArn :: Text
$sel:userSettingsArn:DeleteUserSettings' :: DeleteUserSettings -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/userSettings/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
userSettingsArn]
instance Data.ToQuery DeleteUserSettings where
toQuery :: DeleteUserSettings -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteUserSettingsResponse = DeleteUserSettingsResponse'
{
DeleteUserSettingsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteUserSettingsResponse -> DeleteUserSettingsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteUserSettingsResponse -> DeleteUserSettingsResponse -> Bool
$c/= :: DeleteUserSettingsResponse -> DeleteUserSettingsResponse -> Bool
== :: DeleteUserSettingsResponse -> DeleteUserSettingsResponse -> Bool
$c== :: DeleteUserSettingsResponse -> DeleteUserSettingsResponse -> Bool
Prelude.Eq, ReadPrec [DeleteUserSettingsResponse]
ReadPrec DeleteUserSettingsResponse
Int -> ReadS DeleteUserSettingsResponse
ReadS [DeleteUserSettingsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteUserSettingsResponse]
$creadListPrec :: ReadPrec [DeleteUserSettingsResponse]
readPrec :: ReadPrec DeleteUserSettingsResponse
$creadPrec :: ReadPrec DeleteUserSettingsResponse
readList :: ReadS [DeleteUserSettingsResponse]
$creadList :: ReadS [DeleteUserSettingsResponse]
readsPrec :: Int -> ReadS DeleteUserSettingsResponse
$creadsPrec :: Int -> ReadS DeleteUserSettingsResponse
Prelude.Read, Int -> DeleteUserSettingsResponse -> ShowS
[DeleteUserSettingsResponse] -> ShowS
DeleteUserSettingsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteUserSettingsResponse] -> ShowS
$cshowList :: [DeleteUserSettingsResponse] -> ShowS
show :: DeleteUserSettingsResponse -> String
$cshow :: DeleteUserSettingsResponse -> String
showsPrec :: Int -> DeleteUserSettingsResponse -> ShowS
$cshowsPrec :: Int -> DeleteUserSettingsResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteUserSettingsResponse x -> DeleteUserSettingsResponse
forall x.
DeleteUserSettingsResponse -> Rep DeleteUserSettingsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteUserSettingsResponse x -> DeleteUserSettingsResponse
$cfrom :: forall x.
DeleteUserSettingsResponse -> Rep DeleteUserSettingsResponse x
Prelude.Generic)
newDeleteUserSettingsResponse ::
Prelude.Int ->
DeleteUserSettingsResponse
newDeleteUserSettingsResponse :: Int -> DeleteUserSettingsResponse
newDeleteUserSettingsResponse Int
pHttpStatus_ =
DeleteUserSettingsResponse'
{ $sel:httpStatus:DeleteUserSettingsResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteUserSettingsResponse_httpStatus :: Lens.Lens' DeleteUserSettingsResponse Prelude.Int
deleteUserSettingsResponse_httpStatus :: Lens' DeleteUserSettingsResponse Int
deleteUserSettingsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteUserSettingsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteUserSettingsResponse' :: DeleteUserSettingsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteUserSettingsResponse
s@DeleteUserSettingsResponse' {} Int
a -> DeleteUserSettingsResponse
s {$sel:httpStatus:DeleteUserSettingsResponse' :: Int
httpStatus = Int
a} :: DeleteUserSettingsResponse)
instance Prelude.NFData DeleteUserSettingsResponse where
rnf :: DeleteUserSettingsResponse -> ()
rnf DeleteUserSettingsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteUserSettingsResponse' :: DeleteUserSettingsResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus