{-# 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.CodeDeploy.DeleteGitHubAccountToken
(
DeleteGitHubAccountToken (..),
newDeleteGitHubAccountToken,
deleteGitHubAccountToken_tokenName,
DeleteGitHubAccountTokenResponse (..),
newDeleteGitHubAccountTokenResponse,
deleteGitHubAccountTokenResponse_tokenName,
deleteGitHubAccountTokenResponse_httpStatus,
)
where
import Amazonka.CodeDeploy.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteGitHubAccountToken = DeleteGitHubAccountToken'
{
DeleteGitHubAccountToken -> Maybe Text
tokenName :: Prelude.Maybe Prelude.Text
}
deriving (DeleteGitHubAccountToken -> DeleteGitHubAccountToken -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteGitHubAccountToken -> DeleteGitHubAccountToken -> Bool
$c/= :: DeleteGitHubAccountToken -> DeleteGitHubAccountToken -> Bool
== :: DeleteGitHubAccountToken -> DeleteGitHubAccountToken -> Bool
$c== :: DeleteGitHubAccountToken -> DeleteGitHubAccountToken -> Bool
Prelude.Eq, ReadPrec [DeleteGitHubAccountToken]
ReadPrec DeleteGitHubAccountToken
Int -> ReadS DeleteGitHubAccountToken
ReadS [DeleteGitHubAccountToken]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteGitHubAccountToken]
$creadListPrec :: ReadPrec [DeleteGitHubAccountToken]
readPrec :: ReadPrec DeleteGitHubAccountToken
$creadPrec :: ReadPrec DeleteGitHubAccountToken
readList :: ReadS [DeleteGitHubAccountToken]
$creadList :: ReadS [DeleteGitHubAccountToken]
readsPrec :: Int -> ReadS DeleteGitHubAccountToken
$creadsPrec :: Int -> ReadS DeleteGitHubAccountToken
Prelude.Read, Int -> DeleteGitHubAccountToken -> ShowS
[DeleteGitHubAccountToken] -> ShowS
DeleteGitHubAccountToken -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteGitHubAccountToken] -> ShowS
$cshowList :: [DeleteGitHubAccountToken] -> ShowS
show :: DeleteGitHubAccountToken -> String
$cshow :: DeleteGitHubAccountToken -> String
showsPrec :: Int -> DeleteGitHubAccountToken -> ShowS
$cshowsPrec :: Int -> DeleteGitHubAccountToken -> ShowS
Prelude.Show, forall x.
Rep DeleteGitHubAccountToken x -> DeleteGitHubAccountToken
forall x.
DeleteGitHubAccountToken -> Rep DeleteGitHubAccountToken x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteGitHubAccountToken x -> DeleteGitHubAccountToken
$cfrom :: forall x.
DeleteGitHubAccountToken -> Rep DeleteGitHubAccountToken x
Prelude.Generic)
newDeleteGitHubAccountToken ::
DeleteGitHubAccountToken
newDeleteGitHubAccountToken :: DeleteGitHubAccountToken
newDeleteGitHubAccountToken =
DeleteGitHubAccountToken'
{ $sel:tokenName:DeleteGitHubAccountToken' :: Maybe Text
tokenName =
forall a. Maybe a
Prelude.Nothing
}
deleteGitHubAccountToken_tokenName :: Lens.Lens' DeleteGitHubAccountToken (Prelude.Maybe Prelude.Text)
deleteGitHubAccountToken_tokenName :: Lens' DeleteGitHubAccountToken (Maybe Text)
deleteGitHubAccountToken_tokenName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteGitHubAccountToken' {Maybe Text
tokenName :: Maybe Text
$sel:tokenName:DeleteGitHubAccountToken' :: DeleteGitHubAccountToken -> Maybe Text
tokenName} -> Maybe Text
tokenName) (\s :: DeleteGitHubAccountToken
s@DeleteGitHubAccountToken' {} Maybe Text
a -> DeleteGitHubAccountToken
s {$sel:tokenName:DeleteGitHubAccountToken' :: Maybe Text
tokenName = Maybe Text
a} :: DeleteGitHubAccountToken)
instance Core.AWSRequest DeleteGitHubAccountToken where
type
AWSResponse DeleteGitHubAccountToken =
DeleteGitHubAccountTokenResponse
request :: (Service -> Service)
-> DeleteGitHubAccountToken -> Request DeleteGitHubAccountToken
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 DeleteGitHubAccountToken
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteGitHubAccountToken)))
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 ->
Maybe Text -> Int -> DeleteGitHubAccountTokenResponse
DeleteGitHubAccountTokenResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"tokenName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable DeleteGitHubAccountToken where
hashWithSalt :: Int -> DeleteGitHubAccountToken -> Int
hashWithSalt Int
_salt DeleteGitHubAccountToken' {Maybe Text
tokenName :: Maybe Text
$sel:tokenName:DeleteGitHubAccountToken' :: DeleteGitHubAccountToken -> Maybe Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
tokenName
instance Prelude.NFData DeleteGitHubAccountToken where
rnf :: DeleteGitHubAccountToken -> ()
rnf DeleteGitHubAccountToken' {Maybe Text
tokenName :: Maybe Text
$sel:tokenName:DeleteGitHubAccountToken' :: DeleteGitHubAccountToken -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
tokenName
instance Data.ToHeaders DeleteGitHubAccountToken where
toHeaders :: DeleteGitHubAccountToken -> ResponseHeaders
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 -> ResponseHeaders
Data.=# ( ByteString
"CodeDeploy_20141006.DeleteGitHubAccountToken" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteGitHubAccountToken where
toJSON :: DeleteGitHubAccountToken -> Value
toJSON DeleteGitHubAccountToken' {Maybe Text
tokenName :: Maybe Text
$sel:tokenName:DeleteGitHubAccountToken' :: DeleteGitHubAccountToken -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[(Key
"tokenName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
tokenName]
)
instance Data.ToPath DeleteGitHubAccountToken where
toPath :: DeleteGitHubAccountToken -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteGitHubAccountToken where
toQuery :: DeleteGitHubAccountToken -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteGitHubAccountTokenResponse = DeleteGitHubAccountTokenResponse'
{
DeleteGitHubAccountTokenResponse -> Maybe Text
tokenName :: Prelude.Maybe Prelude.Text,
DeleteGitHubAccountTokenResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteGitHubAccountTokenResponse
-> DeleteGitHubAccountTokenResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteGitHubAccountTokenResponse
-> DeleteGitHubAccountTokenResponse -> Bool
$c/= :: DeleteGitHubAccountTokenResponse
-> DeleteGitHubAccountTokenResponse -> Bool
== :: DeleteGitHubAccountTokenResponse
-> DeleteGitHubAccountTokenResponse -> Bool
$c== :: DeleteGitHubAccountTokenResponse
-> DeleteGitHubAccountTokenResponse -> Bool
Prelude.Eq, ReadPrec [DeleteGitHubAccountTokenResponse]
ReadPrec DeleteGitHubAccountTokenResponse
Int -> ReadS DeleteGitHubAccountTokenResponse
ReadS [DeleteGitHubAccountTokenResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteGitHubAccountTokenResponse]
$creadListPrec :: ReadPrec [DeleteGitHubAccountTokenResponse]
readPrec :: ReadPrec DeleteGitHubAccountTokenResponse
$creadPrec :: ReadPrec DeleteGitHubAccountTokenResponse
readList :: ReadS [DeleteGitHubAccountTokenResponse]
$creadList :: ReadS [DeleteGitHubAccountTokenResponse]
readsPrec :: Int -> ReadS DeleteGitHubAccountTokenResponse
$creadsPrec :: Int -> ReadS DeleteGitHubAccountTokenResponse
Prelude.Read, Int -> DeleteGitHubAccountTokenResponse -> ShowS
[DeleteGitHubAccountTokenResponse] -> ShowS
DeleteGitHubAccountTokenResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteGitHubAccountTokenResponse] -> ShowS
$cshowList :: [DeleteGitHubAccountTokenResponse] -> ShowS
show :: DeleteGitHubAccountTokenResponse -> String
$cshow :: DeleteGitHubAccountTokenResponse -> String
showsPrec :: Int -> DeleteGitHubAccountTokenResponse -> ShowS
$cshowsPrec :: Int -> DeleteGitHubAccountTokenResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteGitHubAccountTokenResponse x
-> DeleteGitHubAccountTokenResponse
forall x.
DeleteGitHubAccountTokenResponse
-> Rep DeleteGitHubAccountTokenResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteGitHubAccountTokenResponse x
-> DeleteGitHubAccountTokenResponse
$cfrom :: forall x.
DeleteGitHubAccountTokenResponse
-> Rep DeleteGitHubAccountTokenResponse x
Prelude.Generic)
newDeleteGitHubAccountTokenResponse ::
Prelude.Int ->
DeleteGitHubAccountTokenResponse
newDeleteGitHubAccountTokenResponse :: Int -> DeleteGitHubAccountTokenResponse
newDeleteGitHubAccountTokenResponse Int
pHttpStatus_ =
DeleteGitHubAccountTokenResponse'
{ $sel:tokenName:DeleteGitHubAccountTokenResponse' :: Maybe Text
tokenName =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteGitHubAccountTokenResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteGitHubAccountTokenResponse_tokenName :: Lens.Lens' DeleteGitHubAccountTokenResponse (Prelude.Maybe Prelude.Text)
deleteGitHubAccountTokenResponse_tokenName :: Lens' DeleteGitHubAccountTokenResponse (Maybe Text)
deleteGitHubAccountTokenResponse_tokenName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteGitHubAccountTokenResponse' {Maybe Text
tokenName :: Maybe Text
$sel:tokenName:DeleteGitHubAccountTokenResponse' :: DeleteGitHubAccountTokenResponse -> Maybe Text
tokenName} -> Maybe Text
tokenName) (\s :: DeleteGitHubAccountTokenResponse
s@DeleteGitHubAccountTokenResponse' {} Maybe Text
a -> DeleteGitHubAccountTokenResponse
s {$sel:tokenName:DeleteGitHubAccountTokenResponse' :: Maybe Text
tokenName = Maybe Text
a} :: DeleteGitHubAccountTokenResponse)
deleteGitHubAccountTokenResponse_httpStatus :: Lens.Lens' DeleteGitHubAccountTokenResponse Prelude.Int
deleteGitHubAccountTokenResponse_httpStatus :: Lens' DeleteGitHubAccountTokenResponse Int
deleteGitHubAccountTokenResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteGitHubAccountTokenResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteGitHubAccountTokenResponse' :: DeleteGitHubAccountTokenResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteGitHubAccountTokenResponse
s@DeleteGitHubAccountTokenResponse' {} Int
a -> DeleteGitHubAccountTokenResponse
s {$sel:httpStatus:DeleteGitHubAccountTokenResponse' :: Int
httpStatus = Int
a} :: DeleteGitHubAccountTokenResponse)
instance
Prelude.NFData
DeleteGitHubAccountTokenResponse
where
rnf :: DeleteGitHubAccountTokenResponse -> ()
rnf DeleteGitHubAccountTokenResponse' {Int
Maybe Text
httpStatus :: Int
tokenName :: Maybe Text
$sel:httpStatus:DeleteGitHubAccountTokenResponse' :: DeleteGitHubAccountTokenResponse -> Int
$sel:tokenName:DeleteGitHubAccountTokenResponse' :: DeleteGitHubAccountTokenResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
tokenName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus