{-# 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.Connect.DisassociateInstanceStorageConfig
(
DisassociateInstanceStorageConfig (..),
newDisassociateInstanceStorageConfig,
disassociateInstanceStorageConfig_instanceId,
disassociateInstanceStorageConfig_associationId,
disassociateInstanceStorageConfig_resourceType,
DisassociateInstanceStorageConfigResponse (..),
newDisassociateInstanceStorageConfigResponse,
)
where
import Amazonka.Connect.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 DisassociateInstanceStorageConfig = DisassociateInstanceStorageConfig'
{
DisassociateInstanceStorageConfig -> Text
instanceId :: Prelude.Text,
DisassociateInstanceStorageConfig -> Text
associationId :: Prelude.Text,
DisassociateInstanceStorageConfig -> InstanceStorageResourceType
resourceType :: InstanceStorageResourceType
}
deriving (DisassociateInstanceStorageConfig
-> DisassociateInstanceStorageConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateInstanceStorageConfig
-> DisassociateInstanceStorageConfig -> Bool
$c/= :: DisassociateInstanceStorageConfig
-> DisassociateInstanceStorageConfig -> Bool
== :: DisassociateInstanceStorageConfig
-> DisassociateInstanceStorageConfig -> Bool
$c== :: DisassociateInstanceStorageConfig
-> DisassociateInstanceStorageConfig -> Bool
Prelude.Eq, ReadPrec [DisassociateInstanceStorageConfig]
ReadPrec DisassociateInstanceStorageConfig
Int -> ReadS DisassociateInstanceStorageConfig
ReadS [DisassociateInstanceStorageConfig]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateInstanceStorageConfig]
$creadListPrec :: ReadPrec [DisassociateInstanceStorageConfig]
readPrec :: ReadPrec DisassociateInstanceStorageConfig
$creadPrec :: ReadPrec DisassociateInstanceStorageConfig
readList :: ReadS [DisassociateInstanceStorageConfig]
$creadList :: ReadS [DisassociateInstanceStorageConfig]
readsPrec :: Int -> ReadS DisassociateInstanceStorageConfig
$creadsPrec :: Int -> ReadS DisassociateInstanceStorageConfig
Prelude.Read, Int -> DisassociateInstanceStorageConfig -> ShowS
[DisassociateInstanceStorageConfig] -> ShowS
DisassociateInstanceStorageConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateInstanceStorageConfig] -> ShowS
$cshowList :: [DisassociateInstanceStorageConfig] -> ShowS
show :: DisassociateInstanceStorageConfig -> String
$cshow :: DisassociateInstanceStorageConfig -> String
showsPrec :: Int -> DisassociateInstanceStorageConfig -> ShowS
$cshowsPrec :: Int -> DisassociateInstanceStorageConfig -> ShowS
Prelude.Show, forall x.
Rep DisassociateInstanceStorageConfig x
-> DisassociateInstanceStorageConfig
forall x.
DisassociateInstanceStorageConfig
-> Rep DisassociateInstanceStorageConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateInstanceStorageConfig x
-> DisassociateInstanceStorageConfig
$cfrom :: forall x.
DisassociateInstanceStorageConfig
-> Rep DisassociateInstanceStorageConfig x
Prelude.Generic)
newDisassociateInstanceStorageConfig ::
Prelude.Text ->
Prelude.Text ->
InstanceStorageResourceType ->
DisassociateInstanceStorageConfig
newDisassociateInstanceStorageConfig :: Text
-> Text
-> InstanceStorageResourceType
-> DisassociateInstanceStorageConfig
newDisassociateInstanceStorageConfig
Text
pInstanceId_
Text
pAssociationId_
InstanceStorageResourceType
pResourceType_ =
DisassociateInstanceStorageConfig'
{ $sel:instanceId:DisassociateInstanceStorageConfig' :: Text
instanceId =
Text
pInstanceId_,
$sel:associationId:DisassociateInstanceStorageConfig' :: Text
associationId = Text
pAssociationId_,
$sel:resourceType:DisassociateInstanceStorageConfig' :: InstanceStorageResourceType
resourceType = InstanceStorageResourceType
pResourceType_
}
disassociateInstanceStorageConfig_instanceId :: Lens.Lens' DisassociateInstanceStorageConfig Prelude.Text
disassociateInstanceStorageConfig_instanceId :: Lens' DisassociateInstanceStorageConfig Text
disassociateInstanceStorageConfig_instanceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateInstanceStorageConfig' {Text
instanceId :: Text
$sel:instanceId:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> Text
instanceId} -> Text
instanceId) (\s :: DisassociateInstanceStorageConfig
s@DisassociateInstanceStorageConfig' {} Text
a -> DisassociateInstanceStorageConfig
s {$sel:instanceId:DisassociateInstanceStorageConfig' :: Text
instanceId = Text
a} :: DisassociateInstanceStorageConfig)
disassociateInstanceStorageConfig_associationId :: Lens.Lens' DisassociateInstanceStorageConfig Prelude.Text
disassociateInstanceStorageConfig_associationId :: Lens' DisassociateInstanceStorageConfig Text
disassociateInstanceStorageConfig_associationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateInstanceStorageConfig' {Text
associationId :: Text
$sel:associationId:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> Text
associationId} -> Text
associationId) (\s :: DisassociateInstanceStorageConfig
s@DisassociateInstanceStorageConfig' {} Text
a -> DisassociateInstanceStorageConfig
s {$sel:associationId:DisassociateInstanceStorageConfig' :: Text
associationId = Text
a} :: DisassociateInstanceStorageConfig)
disassociateInstanceStorageConfig_resourceType :: Lens.Lens' DisassociateInstanceStorageConfig InstanceStorageResourceType
disassociateInstanceStorageConfig_resourceType :: Lens' DisassociateInstanceStorageConfig InstanceStorageResourceType
disassociateInstanceStorageConfig_resourceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateInstanceStorageConfig' {InstanceStorageResourceType
resourceType :: InstanceStorageResourceType
$sel:resourceType:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> InstanceStorageResourceType
resourceType} -> InstanceStorageResourceType
resourceType) (\s :: DisassociateInstanceStorageConfig
s@DisassociateInstanceStorageConfig' {} InstanceStorageResourceType
a -> DisassociateInstanceStorageConfig
s {$sel:resourceType:DisassociateInstanceStorageConfig' :: InstanceStorageResourceType
resourceType = InstanceStorageResourceType
a} :: DisassociateInstanceStorageConfig)
instance
Core.AWSRequest
DisassociateInstanceStorageConfig
where
type
AWSResponse DisassociateInstanceStorageConfig =
DisassociateInstanceStorageConfigResponse
request :: (Service -> Service)
-> DisassociateInstanceStorageConfig
-> Request DisassociateInstanceStorageConfig
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 DisassociateInstanceStorageConfig
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DisassociateInstanceStorageConfig)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DisassociateInstanceStorageConfigResponse
DisassociateInstanceStorageConfigResponse'
instance
Prelude.Hashable
DisassociateInstanceStorageConfig
where
hashWithSalt :: Int -> DisassociateInstanceStorageConfig -> Int
hashWithSalt
Int
_salt
DisassociateInstanceStorageConfig' {Text
InstanceStorageResourceType
resourceType :: InstanceStorageResourceType
associationId :: Text
instanceId :: Text
$sel:resourceType:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> InstanceStorageResourceType
$sel:associationId:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> Text
$sel:instanceId:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
instanceId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
associationId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` InstanceStorageResourceType
resourceType
instance
Prelude.NFData
DisassociateInstanceStorageConfig
where
rnf :: DisassociateInstanceStorageConfig -> ()
rnf DisassociateInstanceStorageConfig' {Text
InstanceStorageResourceType
resourceType :: InstanceStorageResourceType
associationId :: Text
instanceId :: Text
$sel:resourceType:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> InstanceStorageResourceType
$sel:associationId:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> Text
$sel:instanceId:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
instanceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
associationId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf InstanceStorageResourceType
resourceType
instance
Data.ToHeaders
DisassociateInstanceStorageConfig
where
toHeaders :: DisassociateInstanceStorageConfig -> [Header]
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 -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance
Data.ToPath
DisassociateInstanceStorageConfig
where
toPath :: DisassociateInstanceStorageConfig -> ByteString
toPath DisassociateInstanceStorageConfig' {Text
InstanceStorageResourceType
resourceType :: InstanceStorageResourceType
associationId :: Text
instanceId :: Text
$sel:resourceType:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> InstanceStorageResourceType
$sel:associationId:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> Text
$sel:instanceId:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/instance/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
instanceId,
ByteString
"/storage-config/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
associationId
]
instance
Data.ToQuery
DisassociateInstanceStorageConfig
where
toQuery :: DisassociateInstanceStorageConfig -> QueryString
toQuery DisassociateInstanceStorageConfig' {Text
InstanceStorageResourceType
resourceType :: InstanceStorageResourceType
associationId :: Text
instanceId :: Text
$sel:resourceType:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> InstanceStorageResourceType
$sel:associationId:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> Text
$sel:instanceId:DisassociateInstanceStorageConfig' :: DisassociateInstanceStorageConfig -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"resourceType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: InstanceStorageResourceType
resourceType]
data DisassociateInstanceStorageConfigResponse = DisassociateInstanceStorageConfigResponse'
{
}
deriving (DisassociateInstanceStorageConfigResponse
-> DisassociateInstanceStorageConfigResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateInstanceStorageConfigResponse
-> DisassociateInstanceStorageConfigResponse -> Bool
$c/= :: DisassociateInstanceStorageConfigResponse
-> DisassociateInstanceStorageConfigResponse -> Bool
== :: DisassociateInstanceStorageConfigResponse
-> DisassociateInstanceStorageConfigResponse -> Bool
$c== :: DisassociateInstanceStorageConfigResponse
-> DisassociateInstanceStorageConfigResponse -> Bool
Prelude.Eq, ReadPrec [DisassociateInstanceStorageConfigResponse]
ReadPrec DisassociateInstanceStorageConfigResponse
Int -> ReadS DisassociateInstanceStorageConfigResponse
ReadS [DisassociateInstanceStorageConfigResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateInstanceStorageConfigResponse]
$creadListPrec :: ReadPrec [DisassociateInstanceStorageConfigResponse]
readPrec :: ReadPrec DisassociateInstanceStorageConfigResponse
$creadPrec :: ReadPrec DisassociateInstanceStorageConfigResponse
readList :: ReadS [DisassociateInstanceStorageConfigResponse]
$creadList :: ReadS [DisassociateInstanceStorageConfigResponse]
readsPrec :: Int -> ReadS DisassociateInstanceStorageConfigResponse
$creadsPrec :: Int -> ReadS DisassociateInstanceStorageConfigResponse
Prelude.Read, Int -> DisassociateInstanceStorageConfigResponse -> ShowS
[DisassociateInstanceStorageConfigResponse] -> ShowS
DisassociateInstanceStorageConfigResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateInstanceStorageConfigResponse] -> ShowS
$cshowList :: [DisassociateInstanceStorageConfigResponse] -> ShowS
show :: DisassociateInstanceStorageConfigResponse -> String
$cshow :: DisassociateInstanceStorageConfigResponse -> String
showsPrec :: Int -> DisassociateInstanceStorageConfigResponse -> ShowS
$cshowsPrec :: Int -> DisassociateInstanceStorageConfigResponse -> ShowS
Prelude.Show, forall x.
Rep DisassociateInstanceStorageConfigResponse x
-> DisassociateInstanceStorageConfigResponse
forall x.
DisassociateInstanceStorageConfigResponse
-> Rep DisassociateInstanceStorageConfigResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateInstanceStorageConfigResponse x
-> DisassociateInstanceStorageConfigResponse
$cfrom :: forall x.
DisassociateInstanceStorageConfigResponse
-> Rep DisassociateInstanceStorageConfigResponse x
Prelude.Generic)
newDisassociateInstanceStorageConfigResponse ::
DisassociateInstanceStorageConfigResponse
newDisassociateInstanceStorageConfigResponse :: DisassociateInstanceStorageConfigResponse
newDisassociateInstanceStorageConfigResponse =
DisassociateInstanceStorageConfigResponse
DisassociateInstanceStorageConfigResponse'
instance
Prelude.NFData
DisassociateInstanceStorageConfigResponse
where
rnf :: DisassociateInstanceStorageConfigResponse -> ()
rnf DisassociateInstanceStorageConfigResponse
_ = ()