{-# 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.DevOpsGuru.DescribeServiceIntegration
(
DescribeServiceIntegration (..),
newDescribeServiceIntegration,
DescribeServiceIntegrationResponse (..),
newDescribeServiceIntegrationResponse,
describeServiceIntegrationResponse_serviceIntegration,
describeServiceIntegrationResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DevOpsGuru.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeServiceIntegration = DescribeServiceIntegration'
{
}
deriving (DescribeServiceIntegration -> DescribeServiceIntegration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeServiceIntegration -> DescribeServiceIntegration -> Bool
$c/= :: DescribeServiceIntegration -> DescribeServiceIntegration -> Bool
== :: DescribeServiceIntegration -> DescribeServiceIntegration -> Bool
$c== :: DescribeServiceIntegration -> DescribeServiceIntegration -> Bool
Prelude.Eq, ReadPrec [DescribeServiceIntegration]
ReadPrec DescribeServiceIntegration
Int -> ReadS DescribeServiceIntegration
ReadS [DescribeServiceIntegration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeServiceIntegration]
$creadListPrec :: ReadPrec [DescribeServiceIntegration]
readPrec :: ReadPrec DescribeServiceIntegration
$creadPrec :: ReadPrec DescribeServiceIntegration
readList :: ReadS [DescribeServiceIntegration]
$creadList :: ReadS [DescribeServiceIntegration]
readsPrec :: Int -> ReadS DescribeServiceIntegration
$creadsPrec :: Int -> ReadS DescribeServiceIntegration
Prelude.Read, Int -> DescribeServiceIntegration -> ShowS
[DescribeServiceIntegration] -> ShowS
DescribeServiceIntegration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeServiceIntegration] -> ShowS
$cshowList :: [DescribeServiceIntegration] -> ShowS
show :: DescribeServiceIntegration -> String
$cshow :: DescribeServiceIntegration -> String
showsPrec :: Int -> DescribeServiceIntegration -> ShowS
$cshowsPrec :: Int -> DescribeServiceIntegration -> ShowS
Prelude.Show, forall x.
Rep DescribeServiceIntegration x -> DescribeServiceIntegration
forall x.
DescribeServiceIntegration -> Rep DescribeServiceIntegration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeServiceIntegration x -> DescribeServiceIntegration
$cfrom :: forall x.
DescribeServiceIntegration -> Rep DescribeServiceIntegration x
Prelude.Generic)
newDescribeServiceIntegration ::
DescribeServiceIntegration
newDescribeServiceIntegration :: DescribeServiceIntegration
newDescribeServiceIntegration =
DescribeServiceIntegration
DescribeServiceIntegration'
instance Core.AWSRequest DescribeServiceIntegration where
type
AWSResponse DescribeServiceIntegration =
DescribeServiceIntegrationResponse
request :: (Service -> Service)
-> DescribeServiceIntegration -> Request DescribeServiceIntegration
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 DescribeServiceIntegration
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeServiceIntegration)))
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 ServiceIntegrationConfig
-> Int -> DescribeServiceIntegrationResponse
DescribeServiceIntegrationResponse'
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
"ServiceIntegration")
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 DescribeServiceIntegration where
hashWithSalt :: Int -> DescribeServiceIntegration -> Int
hashWithSalt Int
_salt DescribeServiceIntegration
_ =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ()
instance Prelude.NFData DescribeServiceIntegration where
rnf :: DescribeServiceIntegration -> ()
rnf DescribeServiceIntegration
_ = ()
instance Data.ToHeaders DescribeServiceIntegration where
toHeaders :: DescribeServiceIntegration -> 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 DescribeServiceIntegration where
toPath :: DescribeServiceIntegration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/service-integrations"
instance Data.ToQuery DescribeServiceIntegration where
toQuery :: DescribeServiceIntegration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeServiceIntegrationResponse = DescribeServiceIntegrationResponse'
{ DescribeServiceIntegrationResponse
-> Maybe ServiceIntegrationConfig
serviceIntegration :: Prelude.Maybe ServiceIntegrationConfig,
DescribeServiceIntegrationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeServiceIntegrationResponse
-> DescribeServiceIntegrationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeServiceIntegrationResponse
-> DescribeServiceIntegrationResponse -> Bool
$c/= :: DescribeServiceIntegrationResponse
-> DescribeServiceIntegrationResponse -> Bool
== :: DescribeServiceIntegrationResponse
-> DescribeServiceIntegrationResponse -> Bool
$c== :: DescribeServiceIntegrationResponse
-> DescribeServiceIntegrationResponse -> Bool
Prelude.Eq, ReadPrec [DescribeServiceIntegrationResponse]
ReadPrec DescribeServiceIntegrationResponse
Int -> ReadS DescribeServiceIntegrationResponse
ReadS [DescribeServiceIntegrationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeServiceIntegrationResponse]
$creadListPrec :: ReadPrec [DescribeServiceIntegrationResponse]
readPrec :: ReadPrec DescribeServiceIntegrationResponse
$creadPrec :: ReadPrec DescribeServiceIntegrationResponse
readList :: ReadS [DescribeServiceIntegrationResponse]
$creadList :: ReadS [DescribeServiceIntegrationResponse]
readsPrec :: Int -> ReadS DescribeServiceIntegrationResponse
$creadsPrec :: Int -> ReadS DescribeServiceIntegrationResponse
Prelude.Read, Int -> DescribeServiceIntegrationResponse -> ShowS
[DescribeServiceIntegrationResponse] -> ShowS
DescribeServiceIntegrationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeServiceIntegrationResponse] -> ShowS
$cshowList :: [DescribeServiceIntegrationResponse] -> ShowS
show :: DescribeServiceIntegrationResponse -> String
$cshow :: DescribeServiceIntegrationResponse -> String
showsPrec :: Int -> DescribeServiceIntegrationResponse -> ShowS
$cshowsPrec :: Int -> DescribeServiceIntegrationResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeServiceIntegrationResponse x
-> DescribeServiceIntegrationResponse
forall x.
DescribeServiceIntegrationResponse
-> Rep DescribeServiceIntegrationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeServiceIntegrationResponse x
-> DescribeServiceIntegrationResponse
$cfrom :: forall x.
DescribeServiceIntegrationResponse
-> Rep DescribeServiceIntegrationResponse x
Prelude.Generic)
newDescribeServiceIntegrationResponse ::
Prelude.Int ->
DescribeServiceIntegrationResponse
newDescribeServiceIntegrationResponse :: Int -> DescribeServiceIntegrationResponse
newDescribeServiceIntegrationResponse Int
pHttpStatus_ =
DescribeServiceIntegrationResponse'
{ $sel:serviceIntegration:DescribeServiceIntegrationResponse' :: Maybe ServiceIntegrationConfig
serviceIntegration =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeServiceIntegrationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeServiceIntegrationResponse_serviceIntegration :: Lens.Lens' DescribeServiceIntegrationResponse (Prelude.Maybe ServiceIntegrationConfig)
describeServiceIntegrationResponse_serviceIntegration :: Lens'
DescribeServiceIntegrationResponse (Maybe ServiceIntegrationConfig)
describeServiceIntegrationResponse_serviceIntegration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeServiceIntegrationResponse' {Maybe ServiceIntegrationConfig
serviceIntegration :: Maybe ServiceIntegrationConfig
$sel:serviceIntegration:DescribeServiceIntegrationResponse' :: DescribeServiceIntegrationResponse
-> Maybe ServiceIntegrationConfig
serviceIntegration} -> Maybe ServiceIntegrationConfig
serviceIntegration) (\s :: DescribeServiceIntegrationResponse
s@DescribeServiceIntegrationResponse' {} Maybe ServiceIntegrationConfig
a -> DescribeServiceIntegrationResponse
s {$sel:serviceIntegration:DescribeServiceIntegrationResponse' :: Maybe ServiceIntegrationConfig
serviceIntegration = Maybe ServiceIntegrationConfig
a} :: DescribeServiceIntegrationResponse)
describeServiceIntegrationResponse_httpStatus :: Lens.Lens' DescribeServiceIntegrationResponse Prelude.Int
describeServiceIntegrationResponse_httpStatus :: Lens' DescribeServiceIntegrationResponse Int
describeServiceIntegrationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeServiceIntegrationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeServiceIntegrationResponse' :: DescribeServiceIntegrationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeServiceIntegrationResponse
s@DescribeServiceIntegrationResponse' {} Int
a -> DescribeServiceIntegrationResponse
s {$sel:httpStatus:DescribeServiceIntegrationResponse' :: Int
httpStatus = Int
a} :: DescribeServiceIntegrationResponse)
instance
Prelude.NFData
DescribeServiceIntegrationResponse
where
rnf :: DescribeServiceIntegrationResponse -> ()
rnf DescribeServiceIntegrationResponse' {Int
Maybe ServiceIntegrationConfig
httpStatus :: Int
serviceIntegration :: Maybe ServiceIntegrationConfig
$sel:httpStatus:DescribeServiceIntegrationResponse' :: DescribeServiceIntegrationResponse -> Int
$sel:serviceIntegration:DescribeServiceIntegrationResponse' :: DescribeServiceIntegrationResponse
-> Maybe ServiceIntegrationConfig
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ServiceIntegrationConfig
serviceIntegration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus