{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.IoTAnalytics.DeleteDatastore
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Deletes the specified data store.
module Amazonka.IoTAnalytics.DeleteDatastore
  ( -- * Creating a Request
    DeleteDatastore (..),
    newDeleteDatastore,

    -- * Request Lenses
    deleteDatastore_datastoreName,

    -- * Destructuring the Response
    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

-- | /See:/ 'newDeleteDatastore' smart constructor.
data DeleteDatastore = DeleteDatastore'
  { -- | The name of the data store to delete.
    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)

-- |
-- Create a value of 'DeleteDatastore' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'datastoreName', 'deleteDatastore_datastoreName' - The name of the data store to delete.
newDeleteDatastore ::
  -- | 'datastoreName'
  Prelude.Text ->
  DeleteDatastore
newDeleteDatastore :: Text -> DeleteDatastore
newDeleteDatastore Text
pDatastoreName_ =
  DeleteDatastore' {$sel:datastoreName:DeleteDatastore' :: Text
datastoreName = Text
pDatastoreName_}

-- | The name of the data store to delete.
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

-- | /See:/ 'newDeleteDatastoreResponse' smart constructor.
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)

-- |
-- Create a value of 'DeleteDatastoreResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
newDeleteDatastoreResponse ::
  DeleteDatastoreResponse
newDeleteDatastoreResponse :: DeleteDatastoreResponse
newDeleteDatastoreResponse = DeleteDatastoreResponse
DeleteDatastoreResponse'

instance Prelude.NFData DeleteDatastoreResponse where
  rnf :: DeleteDatastoreResponse -> ()
rnf DeleteDatastoreResponse
_ = ()