{-# 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.Amplify.DeleteBranch
(
DeleteBranch (..),
newDeleteBranch,
deleteBranch_appId,
deleteBranch_branchName,
DeleteBranchResponse (..),
newDeleteBranchResponse,
deleteBranchResponse_httpStatus,
deleteBranchResponse_branch,
)
where
import Amazonka.Amplify.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 DeleteBranch = DeleteBranch'
{
DeleteBranch -> Text
appId :: Prelude.Text,
DeleteBranch -> Text
branchName :: Prelude.Text
}
deriving (DeleteBranch -> DeleteBranch -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteBranch -> DeleteBranch -> Bool
$c/= :: DeleteBranch -> DeleteBranch -> Bool
== :: DeleteBranch -> DeleteBranch -> Bool
$c== :: DeleteBranch -> DeleteBranch -> Bool
Prelude.Eq, ReadPrec [DeleteBranch]
ReadPrec DeleteBranch
Int -> ReadS DeleteBranch
ReadS [DeleteBranch]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteBranch]
$creadListPrec :: ReadPrec [DeleteBranch]
readPrec :: ReadPrec DeleteBranch
$creadPrec :: ReadPrec DeleteBranch
readList :: ReadS [DeleteBranch]
$creadList :: ReadS [DeleteBranch]
readsPrec :: Int -> ReadS DeleteBranch
$creadsPrec :: Int -> ReadS DeleteBranch
Prelude.Read, Int -> DeleteBranch -> ShowS
[DeleteBranch] -> ShowS
DeleteBranch -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteBranch] -> ShowS
$cshowList :: [DeleteBranch] -> ShowS
show :: DeleteBranch -> String
$cshow :: DeleteBranch -> String
showsPrec :: Int -> DeleteBranch -> ShowS
$cshowsPrec :: Int -> DeleteBranch -> ShowS
Prelude.Show, forall x. Rep DeleteBranch x -> DeleteBranch
forall x. DeleteBranch -> Rep DeleteBranch x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteBranch x -> DeleteBranch
$cfrom :: forall x. DeleteBranch -> Rep DeleteBranch x
Prelude.Generic)
newDeleteBranch ::
Prelude.Text ->
Prelude.Text ->
DeleteBranch
newDeleteBranch :: Text -> Text -> DeleteBranch
newDeleteBranch Text
pAppId_ Text
pBranchName_ =
DeleteBranch'
{ $sel:appId:DeleteBranch' :: Text
appId = Text
pAppId_,
$sel:branchName:DeleteBranch' :: Text
branchName = Text
pBranchName_
}
deleteBranch_appId :: Lens.Lens' DeleteBranch Prelude.Text
deleteBranch_appId :: Lens' DeleteBranch Text
deleteBranch_appId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBranch' {Text
appId :: Text
$sel:appId:DeleteBranch' :: DeleteBranch -> Text
appId} -> Text
appId) (\s :: DeleteBranch
s@DeleteBranch' {} Text
a -> DeleteBranch
s {$sel:appId:DeleteBranch' :: Text
appId = Text
a} :: DeleteBranch)
deleteBranch_branchName :: Lens.Lens' DeleteBranch Prelude.Text
deleteBranch_branchName :: Lens' DeleteBranch Text
deleteBranch_branchName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBranch' {Text
branchName :: Text
$sel:branchName:DeleteBranch' :: DeleteBranch -> Text
branchName} -> Text
branchName) (\s :: DeleteBranch
s@DeleteBranch' {} Text
a -> DeleteBranch
s {$sel:branchName:DeleteBranch' :: Text
branchName = Text
a} :: DeleteBranch)
instance Core.AWSRequest DeleteBranch where
type AWSResponse DeleteBranch = DeleteBranchResponse
request :: (Service -> Service) -> DeleteBranch -> Request DeleteBranch
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 DeleteBranch
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteBranch)))
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 ->
Int -> Branch -> DeleteBranchResponse
DeleteBranchResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"branch")
)
instance Prelude.Hashable DeleteBranch where
hashWithSalt :: Int -> DeleteBranch -> Int
hashWithSalt Int
_salt DeleteBranch' {Text
branchName :: Text
appId :: Text
$sel:branchName:DeleteBranch' :: DeleteBranch -> Text
$sel:appId:DeleteBranch' :: DeleteBranch -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
appId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
branchName
instance Prelude.NFData DeleteBranch where
rnf :: DeleteBranch -> ()
rnf DeleteBranch' {Text
branchName :: Text
appId :: Text
$sel:branchName:DeleteBranch' :: DeleteBranch -> Text
$sel:appId:DeleteBranch' :: DeleteBranch -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
appId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
branchName
instance Data.ToHeaders DeleteBranch where
toHeaders :: DeleteBranch -> 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 DeleteBranch where
toPath :: DeleteBranch -> ByteString
toPath DeleteBranch' {Text
branchName :: Text
appId :: Text
$sel:branchName:DeleteBranch' :: DeleteBranch -> Text
$sel:appId:DeleteBranch' :: DeleteBranch -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/apps/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
appId,
ByteString
"/branches/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
branchName
]
instance Data.ToQuery DeleteBranch where
toQuery :: DeleteBranch -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteBranchResponse = DeleteBranchResponse'
{
DeleteBranchResponse -> Int
httpStatus :: Prelude.Int,
DeleteBranchResponse -> Branch
branch :: Branch
}
deriving (DeleteBranchResponse -> DeleteBranchResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteBranchResponse -> DeleteBranchResponse -> Bool
$c/= :: DeleteBranchResponse -> DeleteBranchResponse -> Bool
== :: DeleteBranchResponse -> DeleteBranchResponse -> Bool
$c== :: DeleteBranchResponse -> DeleteBranchResponse -> Bool
Prelude.Eq, Int -> DeleteBranchResponse -> ShowS
[DeleteBranchResponse] -> ShowS
DeleteBranchResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteBranchResponse] -> ShowS
$cshowList :: [DeleteBranchResponse] -> ShowS
show :: DeleteBranchResponse -> String
$cshow :: DeleteBranchResponse -> String
showsPrec :: Int -> DeleteBranchResponse -> ShowS
$cshowsPrec :: Int -> DeleteBranchResponse -> ShowS
Prelude.Show, forall x. Rep DeleteBranchResponse x -> DeleteBranchResponse
forall x. DeleteBranchResponse -> Rep DeleteBranchResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteBranchResponse x -> DeleteBranchResponse
$cfrom :: forall x. DeleteBranchResponse -> Rep DeleteBranchResponse x
Prelude.Generic)
newDeleteBranchResponse ::
Prelude.Int ->
Branch ->
DeleteBranchResponse
newDeleteBranchResponse :: Int -> Branch -> DeleteBranchResponse
newDeleteBranchResponse Int
pHttpStatus_ Branch
pBranch_ =
DeleteBranchResponse'
{ $sel:httpStatus:DeleteBranchResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:branch:DeleteBranchResponse' :: Branch
branch = Branch
pBranch_
}
deleteBranchResponse_httpStatus :: Lens.Lens' DeleteBranchResponse Prelude.Int
deleteBranchResponse_httpStatus :: Lens' DeleteBranchResponse Int
deleteBranchResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBranchResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteBranchResponse' :: DeleteBranchResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteBranchResponse
s@DeleteBranchResponse' {} Int
a -> DeleteBranchResponse
s {$sel:httpStatus:DeleteBranchResponse' :: Int
httpStatus = Int
a} :: DeleteBranchResponse)
deleteBranchResponse_branch :: Lens.Lens' DeleteBranchResponse Branch
deleteBranchResponse_branch :: Lens' DeleteBranchResponse Branch
deleteBranchResponse_branch = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBranchResponse' {Branch
branch :: Branch
$sel:branch:DeleteBranchResponse' :: DeleteBranchResponse -> Branch
branch} -> Branch
branch) (\s :: DeleteBranchResponse
s@DeleteBranchResponse' {} Branch
a -> DeleteBranchResponse
s {$sel:branch:DeleteBranchResponse' :: Branch
branch = Branch
a} :: DeleteBranchResponse)
instance Prelude.NFData DeleteBranchResponse where
rnf :: DeleteBranchResponse -> ()
rnf DeleteBranchResponse' {Int
Branch
branch :: Branch
httpStatus :: Int
$sel:branch:DeleteBranchResponse' :: DeleteBranchResponse -> Branch
$sel:httpStatus:DeleteBranchResponse' :: DeleteBranchResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Branch
branch