{-# 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.Forecast.DeleteMonitor
(
DeleteMonitor (..),
newDeleteMonitor,
deleteMonitor_monitorArn,
DeleteMonitorResponse (..),
newDeleteMonitorResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Forecast.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteMonitor = DeleteMonitor'
{
DeleteMonitor -> Text
monitorArn :: Prelude.Text
}
deriving (DeleteMonitor -> DeleteMonitor -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteMonitor -> DeleteMonitor -> Bool
$c/= :: DeleteMonitor -> DeleteMonitor -> Bool
== :: DeleteMonitor -> DeleteMonitor -> Bool
$c== :: DeleteMonitor -> DeleteMonitor -> Bool
Prelude.Eq, ReadPrec [DeleteMonitor]
ReadPrec DeleteMonitor
Int -> ReadS DeleteMonitor
ReadS [DeleteMonitor]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteMonitor]
$creadListPrec :: ReadPrec [DeleteMonitor]
readPrec :: ReadPrec DeleteMonitor
$creadPrec :: ReadPrec DeleteMonitor
readList :: ReadS [DeleteMonitor]
$creadList :: ReadS [DeleteMonitor]
readsPrec :: Int -> ReadS DeleteMonitor
$creadsPrec :: Int -> ReadS DeleteMonitor
Prelude.Read, Int -> DeleteMonitor -> ShowS
[DeleteMonitor] -> ShowS
DeleteMonitor -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteMonitor] -> ShowS
$cshowList :: [DeleteMonitor] -> ShowS
show :: DeleteMonitor -> String
$cshow :: DeleteMonitor -> String
showsPrec :: Int -> DeleteMonitor -> ShowS
$cshowsPrec :: Int -> DeleteMonitor -> ShowS
Prelude.Show, forall x. Rep DeleteMonitor x -> DeleteMonitor
forall x. DeleteMonitor -> Rep DeleteMonitor x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteMonitor x -> DeleteMonitor
$cfrom :: forall x. DeleteMonitor -> Rep DeleteMonitor x
Prelude.Generic)
newDeleteMonitor ::
Prelude.Text ->
DeleteMonitor
newDeleteMonitor :: Text -> DeleteMonitor
newDeleteMonitor Text
pMonitorArn_ =
DeleteMonitor' {$sel:monitorArn:DeleteMonitor' :: Text
monitorArn = Text
pMonitorArn_}
deleteMonitor_monitorArn :: Lens.Lens' DeleteMonitor Prelude.Text
deleteMonitor_monitorArn :: Lens' DeleteMonitor Text
deleteMonitor_monitorArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteMonitor' {Text
monitorArn :: Text
$sel:monitorArn:DeleteMonitor' :: DeleteMonitor -> Text
monitorArn} -> Text
monitorArn) (\s :: DeleteMonitor
s@DeleteMonitor' {} Text
a -> DeleteMonitor
s {$sel:monitorArn:DeleteMonitor' :: Text
monitorArn = Text
a} :: DeleteMonitor)
instance Core.AWSRequest DeleteMonitor where
type
AWSResponse DeleteMonitor =
DeleteMonitorResponse
request :: (Service -> Service) -> DeleteMonitor -> Request DeleteMonitor
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteMonitor
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteMonitor)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteMonitorResponse
DeleteMonitorResponse'
instance Prelude.Hashable DeleteMonitor where
hashWithSalt :: Int -> DeleteMonitor -> Int
hashWithSalt Int
_salt DeleteMonitor' {Text
monitorArn :: Text
$sel:monitorArn:DeleteMonitor' :: DeleteMonitor -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
monitorArn
instance Prelude.NFData DeleteMonitor where
rnf :: DeleteMonitor -> ()
rnf DeleteMonitor' {Text
monitorArn :: Text
$sel:monitorArn:DeleteMonitor' :: DeleteMonitor -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
monitorArn
instance Data.ToHeaders DeleteMonitor where
toHeaders :: DeleteMonitor -> [Header]
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"AmazonForecast.DeleteMonitor" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteMonitor where
toJSON :: DeleteMonitor -> Value
toJSON DeleteMonitor' {Text
monitorArn :: Text
$sel:monitorArn:DeleteMonitor' :: DeleteMonitor -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"MonitorArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
monitorArn)]
)
instance Data.ToPath DeleteMonitor where
toPath :: DeleteMonitor -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteMonitor where
toQuery :: DeleteMonitor -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteMonitorResponse = DeleteMonitorResponse'
{
}
deriving (DeleteMonitorResponse -> DeleteMonitorResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteMonitorResponse -> DeleteMonitorResponse -> Bool
$c/= :: DeleteMonitorResponse -> DeleteMonitorResponse -> Bool
== :: DeleteMonitorResponse -> DeleteMonitorResponse -> Bool
$c== :: DeleteMonitorResponse -> DeleteMonitorResponse -> Bool
Prelude.Eq, ReadPrec [DeleteMonitorResponse]
ReadPrec DeleteMonitorResponse
Int -> ReadS DeleteMonitorResponse
ReadS [DeleteMonitorResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteMonitorResponse]
$creadListPrec :: ReadPrec [DeleteMonitorResponse]
readPrec :: ReadPrec DeleteMonitorResponse
$creadPrec :: ReadPrec DeleteMonitorResponse
readList :: ReadS [DeleteMonitorResponse]
$creadList :: ReadS [DeleteMonitorResponse]
readsPrec :: Int -> ReadS DeleteMonitorResponse
$creadsPrec :: Int -> ReadS DeleteMonitorResponse
Prelude.Read, Int -> DeleteMonitorResponse -> ShowS
[DeleteMonitorResponse] -> ShowS
DeleteMonitorResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteMonitorResponse] -> ShowS
$cshowList :: [DeleteMonitorResponse] -> ShowS
show :: DeleteMonitorResponse -> String
$cshow :: DeleteMonitorResponse -> String
showsPrec :: Int -> DeleteMonitorResponse -> ShowS
$cshowsPrec :: Int -> DeleteMonitorResponse -> ShowS
Prelude.Show, forall x. Rep DeleteMonitorResponse x -> DeleteMonitorResponse
forall x. DeleteMonitorResponse -> Rep DeleteMonitorResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteMonitorResponse x -> DeleteMonitorResponse
$cfrom :: forall x. DeleteMonitorResponse -> Rep DeleteMonitorResponse x
Prelude.Generic)
newDeleteMonitorResponse ::
DeleteMonitorResponse
newDeleteMonitorResponse :: DeleteMonitorResponse
newDeleteMonitorResponse = DeleteMonitorResponse
DeleteMonitorResponse'
instance Prelude.NFData DeleteMonitorResponse where
rnf :: DeleteMonitorResponse -> ()
rnf DeleteMonitorResponse
_ = ()