{-# 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.GroundStation.DeleteEphemeris
(
DeleteEphemeris (..),
newDeleteEphemeris,
deleteEphemeris_ephemerisId,
EphemerisIdResponse (..),
newEphemerisIdResponse,
ephemerisIdResponse_ephemerisId,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.GroundStation.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteEphemeris = DeleteEphemeris'
{
DeleteEphemeris -> Text
ephemerisId :: Prelude.Text
}
deriving (DeleteEphemeris -> DeleteEphemeris -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteEphemeris -> DeleteEphemeris -> Bool
$c/= :: DeleteEphemeris -> DeleteEphemeris -> Bool
== :: DeleteEphemeris -> DeleteEphemeris -> Bool
$c== :: DeleteEphemeris -> DeleteEphemeris -> Bool
Prelude.Eq, ReadPrec [DeleteEphemeris]
ReadPrec DeleteEphemeris
Int -> ReadS DeleteEphemeris
ReadS [DeleteEphemeris]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteEphemeris]
$creadListPrec :: ReadPrec [DeleteEphemeris]
readPrec :: ReadPrec DeleteEphemeris
$creadPrec :: ReadPrec DeleteEphemeris
readList :: ReadS [DeleteEphemeris]
$creadList :: ReadS [DeleteEphemeris]
readsPrec :: Int -> ReadS DeleteEphemeris
$creadsPrec :: Int -> ReadS DeleteEphemeris
Prelude.Read, Int -> DeleteEphemeris -> ShowS
[DeleteEphemeris] -> ShowS
DeleteEphemeris -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteEphemeris] -> ShowS
$cshowList :: [DeleteEphemeris] -> ShowS
show :: DeleteEphemeris -> String
$cshow :: DeleteEphemeris -> String
showsPrec :: Int -> DeleteEphemeris -> ShowS
$cshowsPrec :: Int -> DeleteEphemeris -> ShowS
Prelude.Show, forall x. Rep DeleteEphemeris x -> DeleteEphemeris
forall x. DeleteEphemeris -> Rep DeleteEphemeris x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteEphemeris x -> DeleteEphemeris
$cfrom :: forall x. DeleteEphemeris -> Rep DeleteEphemeris x
Prelude.Generic)
newDeleteEphemeris ::
Prelude.Text ->
DeleteEphemeris
newDeleteEphemeris :: Text -> DeleteEphemeris
newDeleteEphemeris Text
pEphemerisId_ =
DeleteEphemeris' {$sel:ephemerisId:DeleteEphemeris' :: Text
ephemerisId = Text
pEphemerisId_}
deleteEphemeris_ephemerisId :: Lens.Lens' DeleteEphemeris Prelude.Text
deleteEphemeris_ephemerisId :: Lens' DeleteEphemeris Text
deleteEphemeris_ephemerisId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteEphemeris' {Text
ephemerisId :: Text
$sel:ephemerisId:DeleteEphemeris' :: DeleteEphemeris -> Text
ephemerisId} -> Text
ephemerisId) (\s :: DeleteEphemeris
s@DeleteEphemeris' {} Text
a -> DeleteEphemeris
s {$sel:ephemerisId:DeleteEphemeris' :: Text
ephemerisId = Text
a} :: DeleteEphemeris)
instance Core.AWSRequest DeleteEphemeris where
type
AWSResponse DeleteEphemeris =
EphemerisIdResponse
request :: (Service -> Service) -> DeleteEphemeris -> Request DeleteEphemeris
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 DeleteEphemeris
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteEphemeris)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
(\Int
s ResponseHeaders
h Object
x -> forall a. FromJSON a => Object -> Either String a
Data.eitherParseJSON Object
x)
instance Prelude.Hashable DeleteEphemeris where
hashWithSalt :: Int -> DeleteEphemeris -> Int
hashWithSalt Int
_salt DeleteEphemeris' {Text
ephemerisId :: Text
$sel:ephemerisId:DeleteEphemeris' :: DeleteEphemeris -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
ephemerisId
instance Prelude.NFData DeleteEphemeris where
rnf :: DeleteEphemeris -> ()
rnf DeleteEphemeris' {Text
ephemerisId :: Text
$sel:ephemerisId:DeleteEphemeris' :: DeleteEphemeris -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
ephemerisId
instance Data.ToHeaders DeleteEphemeris where
toHeaders :: DeleteEphemeris -> ResponseHeaders
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 -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DeleteEphemeris where
toPath :: DeleteEphemeris -> ByteString
toPath DeleteEphemeris' {Text
ephemerisId :: Text
$sel:ephemerisId:DeleteEphemeris' :: DeleteEphemeris -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/ephemeris/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
ephemerisId]
instance Data.ToQuery DeleteEphemeris where
toQuery :: DeleteEphemeris -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty