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