{-# 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.EFS.DeleteMountTarget
(
DeleteMountTarget (..),
newDeleteMountTarget,
deleteMountTarget_mountTargetId,
DeleteMountTargetResponse (..),
newDeleteMountTargetResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EFS.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteMountTarget = DeleteMountTarget'
{
DeleteMountTarget -> Text
mountTargetId :: Prelude.Text
}
deriving (DeleteMountTarget -> DeleteMountTarget -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteMountTarget -> DeleteMountTarget -> Bool
$c/= :: DeleteMountTarget -> DeleteMountTarget -> Bool
== :: DeleteMountTarget -> DeleteMountTarget -> Bool
$c== :: DeleteMountTarget -> DeleteMountTarget -> Bool
Prelude.Eq, ReadPrec [DeleteMountTarget]
ReadPrec DeleteMountTarget
Int -> ReadS DeleteMountTarget
ReadS [DeleteMountTarget]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteMountTarget]
$creadListPrec :: ReadPrec [DeleteMountTarget]
readPrec :: ReadPrec DeleteMountTarget
$creadPrec :: ReadPrec DeleteMountTarget
readList :: ReadS [DeleteMountTarget]
$creadList :: ReadS [DeleteMountTarget]
readsPrec :: Int -> ReadS DeleteMountTarget
$creadsPrec :: Int -> ReadS DeleteMountTarget
Prelude.Read, Int -> DeleteMountTarget -> ShowS
[DeleteMountTarget] -> ShowS
DeleteMountTarget -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteMountTarget] -> ShowS
$cshowList :: [DeleteMountTarget] -> ShowS
show :: DeleteMountTarget -> String
$cshow :: DeleteMountTarget -> String
showsPrec :: Int -> DeleteMountTarget -> ShowS
$cshowsPrec :: Int -> DeleteMountTarget -> ShowS
Prelude.Show, forall x. Rep DeleteMountTarget x -> DeleteMountTarget
forall x. DeleteMountTarget -> Rep DeleteMountTarget x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteMountTarget x -> DeleteMountTarget
$cfrom :: forall x. DeleteMountTarget -> Rep DeleteMountTarget x
Prelude.Generic)
newDeleteMountTarget ::
Prelude.Text ->
DeleteMountTarget
newDeleteMountTarget :: Text -> DeleteMountTarget
newDeleteMountTarget Text
pMountTargetId_ =
DeleteMountTarget' {$sel:mountTargetId:DeleteMountTarget' :: Text
mountTargetId = Text
pMountTargetId_}
deleteMountTarget_mountTargetId :: Lens.Lens' DeleteMountTarget Prelude.Text
deleteMountTarget_mountTargetId :: Lens' DeleteMountTarget Text
deleteMountTarget_mountTargetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteMountTarget' {Text
mountTargetId :: Text
$sel:mountTargetId:DeleteMountTarget' :: DeleteMountTarget -> Text
mountTargetId} -> Text
mountTargetId) (\s :: DeleteMountTarget
s@DeleteMountTarget' {} Text
a -> DeleteMountTarget
s {$sel:mountTargetId:DeleteMountTarget' :: Text
mountTargetId = Text
a} :: DeleteMountTarget)
instance Core.AWSRequest DeleteMountTarget where
type
AWSResponse DeleteMountTarget =
DeleteMountTargetResponse
request :: (Service -> Service)
-> DeleteMountTarget -> Request DeleteMountTarget
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 DeleteMountTarget
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteMountTarget)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteMountTargetResponse
DeleteMountTargetResponse'
instance Prelude.Hashable DeleteMountTarget where
hashWithSalt :: Int -> DeleteMountTarget -> Int
hashWithSalt Int
_salt DeleteMountTarget' {Text
mountTargetId :: Text
$sel:mountTargetId:DeleteMountTarget' :: DeleteMountTarget -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
mountTargetId
instance Prelude.NFData DeleteMountTarget where
rnf :: DeleteMountTarget -> ()
rnf DeleteMountTarget' {Text
mountTargetId :: Text
$sel:mountTargetId:DeleteMountTarget' :: DeleteMountTarget -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
mountTargetId
instance Data.ToHeaders DeleteMountTarget where
toHeaders :: DeleteMountTarget -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteMountTarget where
toPath :: DeleteMountTarget -> ByteString
toPath DeleteMountTarget' {Text
mountTargetId :: Text
$sel:mountTargetId:DeleteMountTarget' :: DeleteMountTarget -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/2015-02-01/mount-targets/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
mountTargetId
]
instance Data.ToQuery DeleteMountTarget where
toQuery :: DeleteMountTarget -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteMountTargetResponse = DeleteMountTargetResponse'
{
}
deriving (DeleteMountTargetResponse -> DeleteMountTargetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteMountTargetResponse -> DeleteMountTargetResponse -> Bool
$c/= :: DeleteMountTargetResponse -> DeleteMountTargetResponse -> Bool
== :: DeleteMountTargetResponse -> DeleteMountTargetResponse -> Bool
$c== :: DeleteMountTargetResponse -> DeleteMountTargetResponse -> Bool
Prelude.Eq, ReadPrec [DeleteMountTargetResponse]
ReadPrec DeleteMountTargetResponse
Int -> ReadS DeleteMountTargetResponse
ReadS [DeleteMountTargetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteMountTargetResponse]
$creadListPrec :: ReadPrec [DeleteMountTargetResponse]
readPrec :: ReadPrec DeleteMountTargetResponse
$creadPrec :: ReadPrec DeleteMountTargetResponse
readList :: ReadS [DeleteMountTargetResponse]
$creadList :: ReadS [DeleteMountTargetResponse]
readsPrec :: Int -> ReadS DeleteMountTargetResponse
$creadsPrec :: Int -> ReadS DeleteMountTargetResponse
Prelude.Read, Int -> DeleteMountTargetResponse -> ShowS
[DeleteMountTargetResponse] -> ShowS
DeleteMountTargetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteMountTargetResponse] -> ShowS
$cshowList :: [DeleteMountTargetResponse] -> ShowS
show :: DeleteMountTargetResponse -> String
$cshow :: DeleteMountTargetResponse -> String
showsPrec :: Int -> DeleteMountTargetResponse -> ShowS
$cshowsPrec :: Int -> DeleteMountTargetResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteMountTargetResponse x -> DeleteMountTargetResponse
forall x.
DeleteMountTargetResponse -> Rep DeleteMountTargetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteMountTargetResponse x -> DeleteMountTargetResponse
$cfrom :: forall x.
DeleteMountTargetResponse -> Rep DeleteMountTargetResponse x
Prelude.Generic)
newDeleteMountTargetResponse ::
DeleteMountTargetResponse
newDeleteMountTargetResponse :: DeleteMountTargetResponse
newDeleteMountTargetResponse =
DeleteMountTargetResponse
DeleteMountTargetResponse'
instance Prelude.NFData DeleteMountTargetResponse where
rnf :: DeleteMountTargetResponse -> ()
rnf DeleteMountTargetResponse
_ = ()