{-# 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.CodeGuruReviewer.DescribeRepositoryAssociation
(
DescribeRepositoryAssociation (..),
newDescribeRepositoryAssociation,
describeRepositoryAssociation_associationArn,
DescribeRepositoryAssociationResponse (..),
newDescribeRepositoryAssociationResponse,
describeRepositoryAssociationResponse_repositoryAssociation,
describeRepositoryAssociationResponse_tags,
describeRepositoryAssociationResponse_httpStatus,
)
where
import Amazonka.CodeGuruReviewer.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 DescribeRepositoryAssociation = DescribeRepositoryAssociation'
{
DescribeRepositoryAssociation -> Text
associationArn :: Prelude.Text
}
deriving (DescribeRepositoryAssociation
-> DescribeRepositoryAssociation -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeRepositoryAssociation
-> DescribeRepositoryAssociation -> Bool
$c/= :: DescribeRepositoryAssociation
-> DescribeRepositoryAssociation -> Bool
== :: DescribeRepositoryAssociation
-> DescribeRepositoryAssociation -> Bool
$c== :: DescribeRepositoryAssociation
-> DescribeRepositoryAssociation -> Bool
Prelude.Eq, ReadPrec [DescribeRepositoryAssociation]
ReadPrec DescribeRepositoryAssociation
Int -> ReadS DescribeRepositoryAssociation
ReadS [DescribeRepositoryAssociation]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeRepositoryAssociation]
$creadListPrec :: ReadPrec [DescribeRepositoryAssociation]
readPrec :: ReadPrec DescribeRepositoryAssociation
$creadPrec :: ReadPrec DescribeRepositoryAssociation
readList :: ReadS [DescribeRepositoryAssociation]
$creadList :: ReadS [DescribeRepositoryAssociation]
readsPrec :: Int -> ReadS DescribeRepositoryAssociation
$creadsPrec :: Int -> ReadS DescribeRepositoryAssociation
Prelude.Read, Int -> DescribeRepositoryAssociation -> ShowS
[DescribeRepositoryAssociation] -> ShowS
DescribeRepositoryAssociation -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeRepositoryAssociation] -> ShowS
$cshowList :: [DescribeRepositoryAssociation] -> ShowS
show :: DescribeRepositoryAssociation -> String
$cshow :: DescribeRepositoryAssociation -> String
showsPrec :: Int -> DescribeRepositoryAssociation -> ShowS
$cshowsPrec :: Int -> DescribeRepositoryAssociation -> ShowS
Prelude.Show, forall x.
Rep DescribeRepositoryAssociation x
-> DescribeRepositoryAssociation
forall x.
DescribeRepositoryAssociation
-> Rep DescribeRepositoryAssociation x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeRepositoryAssociation x
-> DescribeRepositoryAssociation
$cfrom :: forall x.
DescribeRepositoryAssociation
-> Rep DescribeRepositoryAssociation x
Prelude.Generic)
newDescribeRepositoryAssociation ::
Prelude.Text ->
DescribeRepositoryAssociation
newDescribeRepositoryAssociation :: Text -> DescribeRepositoryAssociation
newDescribeRepositoryAssociation Text
pAssociationArn_ =
DescribeRepositoryAssociation'
{ $sel:associationArn:DescribeRepositoryAssociation' :: Text
associationArn =
Text
pAssociationArn_
}
describeRepositoryAssociation_associationArn :: Lens.Lens' DescribeRepositoryAssociation Prelude.Text
describeRepositoryAssociation_associationArn :: Lens' DescribeRepositoryAssociation Text
describeRepositoryAssociation_associationArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRepositoryAssociation' {Text
associationArn :: Text
$sel:associationArn:DescribeRepositoryAssociation' :: DescribeRepositoryAssociation -> Text
associationArn} -> Text
associationArn) (\s :: DescribeRepositoryAssociation
s@DescribeRepositoryAssociation' {} Text
a -> DescribeRepositoryAssociation
s {$sel:associationArn:DescribeRepositoryAssociation' :: Text
associationArn = Text
a} :: DescribeRepositoryAssociation)
instance
Core.AWSRequest
DescribeRepositoryAssociation
where
type
AWSResponse DescribeRepositoryAssociation =
DescribeRepositoryAssociationResponse
request :: (Service -> Service)
-> DescribeRepositoryAssociation
-> Request DescribeRepositoryAssociation
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeRepositoryAssociation
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeRepositoryAssociation)))
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 RepositoryAssociation
-> Maybe (HashMap Text Text)
-> Int
-> DescribeRepositoryAssociationResponse
DescribeRepositoryAssociationResponse'
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
"RepositoryAssociation")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Tags" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
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
DescribeRepositoryAssociation
where
hashWithSalt :: Int -> DescribeRepositoryAssociation -> Int
hashWithSalt Int
_salt DescribeRepositoryAssociation' {Text
associationArn :: Text
$sel:associationArn:DescribeRepositoryAssociation' :: DescribeRepositoryAssociation -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
associationArn
instance Prelude.NFData DescribeRepositoryAssociation where
rnf :: DescribeRepositoryAssociation -> ()
rnf DescribeRepositoryAssociation' {Text
associationArn :: Text
$sel:associationArn:DescribeRepositoryAssociation' :: DescribeRepositoryAssociation -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
associationArn
instance Data.ToHeaders DescribeRepositoryAssociation where
toHeaders :: DescribeRepositoryAssociation -> 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 DescribeRepositoryAssociation where
toPath :: DescribeRepositoryAssociation -> ByteString
toPath DescribeRepositoryAssociation' {Text
associationArn :: Text
$sel:associationArn:DescribeRepositoryAssociation' :: DescribeRepositoryAssociation -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/associations/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
associationArn]
instance Data.ToQuery DescribeRepositoryAssociation where
toQuery :: DescribeRepositoryAssociation -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeRepositoryAssociationResponse = DescribeRepositoryAssociationResponse'
{
DescribeRepositoryAssociationResponse
-> Maybe RepositoryAssociation
repositoryAssociation :: Prelude.Maybe RepositoryAssociation,
DescribeRepositoryAssociationResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
DescribeRepositoryAssociationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeRepositoryAssociationResponse
-> DescribeRepositoryAssociationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeRepositoryAssociationResponse
-> DescribeRepositoryAssociationResponse -> Bool
$c/= :: DescribeRepositoryAssociationResponse
-> DescribeRepositoryAssociationResponse -> Bool
== :: DescribeRepositoryAssociationResponse
-> DescribeRepositoryAssociationResponse -> Bool
$c== :: DescribeRepositoryAssociationResponse
-> DescribeRepositoryAssociationResponse -> Bool
Prelude.Eq, ReadPrec [DescribeRepositoryAssociationResponse]
ReadPrec DescribeRepositoryAssociationResponse
Int -> ReadS DescribeRepositoryAssociationResponse
ReadS [DescribeRepositoryAssociationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeRepositoryAssociationResponse]
$creadListPrec :: ReadPrec [DescribeRepositoryAssociationResponse]
readPrec :: ReadPrec DescribeRepositoryAssociationResponse
$creadPrec :: ReadPrec DescribeRepositoryAssociationResponse
readList :: ReadS [DescribeRepositoryAssociationResponse]
$creadList :: ReadS [DescribeRepositoryAssociationResponse]
readsPrec :: Int -> ReadS DescribeRepositoryAssociationResponse
$creadsPrec :: Int -> ReadS DescribeRepositoryAssociationResponse
Prelude.Read, Int -> DescribeRepositoryAssociationResponse -> ShowS
[DescribeRepositoryAssociationResponse] -> ShowS
DescribeRepositoryAssociationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeRepositoryAssociationResponse] -> ShowS
$cshowList :: [DescribeRepositoryAssociationResponse] -> ShowS
show :: DescribeRepositoryAssociationResponse -> String
$cshow :: DescribeRepositoryAssociationResponse -> String
showsPrec :: Int -> DescribeRepositoryAssociationResponse -> ShowS
$cshowsPrec :: Int -> DescribeRepositoryAssociationResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeRepositoryAssociationResponse x
-> DescribeRepositoryAssociationResponse
forall x.
DescribeRepositoryAssociationResponse
-> Rep DescribeRepositoryAssociationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeRepositoryAssociationResponse x
-> DescribeRepositoryAssociationResponse
$cfrom :: forall x.
DescribeRepositoryAssociationResponse
-> Rep DescribeRepositoryAssociationResponse x
Prelude.Generic)
newDescribeRepositoryAssociationResponse ::
Prelude.Int ->
DescribeRepositoryAssociationResponse
newDescribeRepositoryAssociationResponse :: Int -> DescribeRepositoryAssociationResponse
newDescribeRepositoryAssociationResponse Int
pHttpStatus_ =
DescribeRepositoryAssociationResponse'
{ $sel:repositoryAssociation:DescribeRepositoryAssociationResponse' :: Maybe RepositoryAssociation
repositoryAssociation =
forall a. Maybe a
Prelude.Nothing,
$sel:tags:DescribeRepositoryAssociationResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeRepositoryAssociationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeRepositoryAssociationResponse_repositoryAssociation :: Lens.Lens' DescribeRepositoryAssociationResponse (Prelude.Maybe RepositoryAssociation)
describeRepositoryAssociationResponse_repositoryAssociation :: Lens'
DescribeRepositoryAssociationResponse (Maybe RepositoryAssociation)
describeRepositoryAssociationResponse_repositoryAssociation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRepositoryAssociationResponse' {Maybe RepositoryAssociation
repositoryAssociation :: Maybe RepositoryAssociation
$sel:repositoryAssociation:DescribeRepositoryAssociationResponse' :: DescribeRepositoryAssociationResponse
-> Maybe RepositoryAssociation
repositoryAssociation} -> Maybe RepositoryAssociation
repositoryAssociation) (\s :: DescribeRepositoryAssociationResponse
s@DescribeRepositoryAssociationResponse' {} Maybe RepositoryAssociation
a -> DescribeRepositoryAssociationResponse
s {$sel:repositoryAssociation:DescribeRepositoryAssociationResponse' :: Maybe RepositoryAssociation
repositoryAssociation = Maybe RepositoryAssociation
a} :: DescribeRepositoryAssociationResponse)
describeRepositoryAssociationResponse_tags :: Lens.Lens' DescribeRepositoryAssociationResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
describeRepositoryAssociationResponse_tags :: Lens'
DescribeRepositoryAssociationResponse (Maybe (HashMap Text Text))
describeRepositoryAssociationResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRepositoryAssociationResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:DescribeRepositoryAssociationResponse' :: DescribeRepositoryAssociationResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: DescribeRepositoryAssociationResponse
s@DescribeRepositoryAssociationResponse' {} Maybe (HashMap Text Text)
a -> DescribeRepositoryAssociationResponse
s {$sel:tags:DescribeRepositoryAssociationResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: DescribeRepositoryAssociationResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
describeRepositoryAssociationResponse_httpStatus :: Lens.Lens' DescribeRepositoryAssociationResponse Prelude.Int
describeRepositoryAssociationResponse_httpStatus :: Lens' DescribeRepositoryAssociationResponse Int
describeRepositoryAssociationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRepositoryAssociationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeRepositoryAssociationResponse' :: DescribeRepositoryAssociationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeRepositoryAssociationResponse
s@DescribeRepositoryAssociationResponse' {} Int
a -> DescribeRepositoryAssociationResponse
s {$sel:httpStatus:DescribeRepositoryAssociationResponse' :: Int
httpStatus = Int
a} :: DescribeRepositoryAssociationResponse)
instance
Prelude.NFData
DescribeRepositoryAssociationResponse
where
rnf :: DescribeRepositoryAssociationResponse -> ()
rnf DescribeRepositoryAssociationResponse' {Int
Maybe (HashMap Text Text)
Maybe RepositoryAssociation
httpStatus :: Int
tags :: Maybe (HashMap Text Text)
repositoryAssociation :: Maybe RepositoryAssociation
$sel:httpStatus:DescribeRepositoryAssociationResponse' :: DescribeRepositoryAssociationResponse -> Int
$sel:tags:DescribeRepositoryAssociationResponse' :: DescribeRepositoryAssociationResponse -> Maybe (HashMap Text Text)
$sel:repositoryAssociation:DescribeRepositoryAssociationResponse' :: DescribeRepositoryAssociationResponse
-> Maybe RepositoryAssociation
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe RepositoryAssociation
repositoryAssociation
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus