{-# 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.SageMaker.DescribeSubscribedWorkteam
(
DescribeSubscribedWorkteam (..),
newDescribeSubscribedWorkteam,
describeSubscribedWorkteam_workteamArn,
DescribeSubscribedWorkteamResponse (..),
newDescribeSubscribedWorkteamResponse,
describeSubscribedWorkteamResponse_httpStatus,
describeSubscribedWorkteamResponse_subscribedWorkteam,
)
where
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
import Amazonka.SageMaker.Types
data DescribeSubscribedWorkteam = DescribeSubscribedWorkteam'
{
DescribeSubscribedWorkteam -> Text
workteamArn :: Prelude.Text
}
deriving (DescribeSubscribedWorkteam -> DescribeSubscribedWorkteam -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeSubscribedWorkteam -> DescribeSubscribedWorkteam -> Bool
$c/= :: DescribeSubscribedWorkteam -> DescribeSubscribedWorkteam -> Bool
== :: DescribeSubscribedWorkteam -> DescribeSubscribedWorkteam -> Bool
$c== :: DescribeSubscribedWorkteam -> DescribeSubscribedWorkteam -> Bool
Prelude.Eq, ReadPrec [DescribeSubscribedWorkteam]
ReadPrec DescribeSubscribedWorkteam
Int -> ReadS DescribeSubscribedWorkteam
ReadS [DescribeSubscribedWorkteam]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeSubscribedWorkteam]
$creadListPrec :: ReadPrec [DescribeSubscribedWorkteam]
readPrec :: ReadPrec DescribeSubscribedWorkteam
$creadPrec :: ReadPrec DescribeSubscribedWorkteam
readList :: ReadS [DescribeSubscribedWorkteam]
$creadList :: ReadS [DescribeSubscribedWorkteam]
readsPrec :: Int -> ReadS DescribeSubscribedWorkteam
$creadsPrec :: Int -> ReadS DescribeSubscribedWorkteam
Prelude.Read, Int -> DescribeSubscribedWorkteam -> ShowS
[DescribeSubscribedWorkteam] -> ShowS
DescribeSubscribedWorkteam -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeSubscribedWorkteam] -> ShowS
$cshowList :: [DescribeSubscribedWorkteam] -> ShowS
show :: DescribeSubscribedWorkteam -> String
$cshow :: DescribeSubscribedWorkteam -> String
showsPrec :: Int -> DescribeSubscribedWorkteam -> ShowS
$cshowsPrec :: Int -> DescribeSubscribedWorkteam -> ShowS
Prelude.Show, forall x.
Rep DescribeSubscribedWorkteam x -> DescribeSubscribedWorkteam
forall x.
DescribeSubscribedWorkteam -> Rep DescribeSubscribedWorkteam x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeSubscribedWorkteam x -> DescribeSubscribedWorkteam
$cfrom :: forall x.
DescribeSubscribedWorkteam -> Rep DescribeSubscribedWorkteam x
Prelude.Generic)
newDescribeSubscribedWorkteam ::
Prelude.Text ->
DescribeSubscribedWorkteam
newDescribeSubscribedWorkteam :: Text -> DescribeSubscribedWorkteam
newDescribeSubscribedWorkteam Text
pWorkteamArn_ =
DescribeSubscribedWorkteam'
{ $sel:workteamArn:DescribeSubscribedWorkteam' :: Text
workteamArn =
Text
pWorkteamArn_
}
describeSubscribedWorkteam_workteamArn :: Lens.Lens' DescribeSubscribedWorkteam Prelude.Text
describeSubscribedWorkteam_workteamArn :: Lens' DescribeSubscribedWorkteam Text
describeSubscribedWorkteam_workteamArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSubscribedWorkteam' {Text
workteamArn :: Text
$sel:workteamArn:DescribeSubscribedWorkteam' :: DescribeSubscribedWorkteam -> Text
workteamArn} -> Text
workteamArn) (\s :: DescribeSubscribedWorkteam
s@DescribeSubscribedWorkteam' {} Text
a -> DescribeSubscribedWorkteam
s {$sel:workteamArn:DescribeSubscribedWorkteam' :: Text
workteamArn = Text
a} :: DescribeSubscribedWorkteam)
instance Core.AWSRequest DescribeSubscribedWorkteam where
type
AWSResponse DescribeSubscribedWorkteam =
DescribeSubscribedWorkteamResponse
request :: (Service -> Service)
-> DescribeSubscribedWorkteam -> Request DescribeSubscribedWorkteam
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 DescribeSubscribedWorkteam
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeSubscribedWorkteam)))
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 -> SubscribedWorkteam -> DescribeSubscribedWorkteamResponse
DescribeSubscribedWorkteamResponse'
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
"SubscribedWorkteam")
)
instance Prelude.Hashable DescribeSubscribedWorkteam where
hashWithSalt :: Int -> DescribeSubscribedWorkteam -> Int
hashWithSalt Int
_salt DescribeSubscribedWorkteam' {Text
workteamArn :: Text
$sel:workteamArn:DescribeSubscribedWorkteam' :: DescribeSubscribedWorkteam -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
workteamArn
instance Prelude.NFData DescribeSubscribedWorkteam where
rnf :: DescribeSubscribedWorkteam -> ()
rnf DescribeSubscribedWorkteam' {Text
workteamArn :: Text
$sel:workteamArn:DescribeSubscribedWorkteam' :: DescribeSubscribedWorkteam -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
workteamArn
instance Data.ToHeaders DescribeSubscribedWorkteam where
toHeaders :: DescribeSubscribedWorkteam -> 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
"SageMaker.DescribeSubscribedWorkteam" ::
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 DescribeSubscribedWorkteam where
toJSON :: DescribeSubscribedWorkteam -> Value
toJSON DescribeSubscribedWorkteam' {Text
workteamArn :: Text
$sel:workteamArn:DescribeSubscribedWorkteam' :: DescribeSubscribedWorkteam -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"WorkteamArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
workteamArn)]
)
instance Data.ToPath DescribeSubscribedWorkteam where
toPath :: DescribeSubscribedWorkteam -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeSubscribedWorkteam where
toQuery :: DescribeSubscribedWorkteam -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeSubscribedWorkteamResponse = DescribeSubscribedWorkteamResponse'
{
DescribeSubscribedWorkteamResponse -> Int
httpStatus :: Prelude.Int,
DescribeSubscribedWorkteamResponse -> SubscribedWorkteam
subscribedWorkteam :: SubscribedWorkteam
}
deriving (DescribeSubscribedWorkteamResponse
-> DescribeSubscribedWorkteamResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeSubscribedWorkteamResponse
-> DescribeSubscribedWorkteamResponse -> Bool
$c/= :: DescribeSubscribedWorkteamResponse
-> DescribeSubscribedWorkteamResponse -> Bool
== :: DescribeSubscribedWorkteamResponse
-> DescribeSubscribedWorkteamResponse -> Bool
$c== :: DescribeSubscribedWorkteamResponse
-> DescribeSubscribedWorkteamResponse -> Bool
Prelude.Eq, ReadPrec [DescribeSubscribedWorkteamResponse]
ReadPrec DescribeSubscribedWorkteamResponse
Int -> ReadS DescribeSubscribedWorkteamResponse
ReadS [DescribeSubscribedWorkteamResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeSubscribedWorkteamResponse]
$creadListPrec :: ReadPrec [DescribeSubscribedWorkteamResponse]
readPrec :: ReadPrec DescribeSubscribedWorkteamResponse
$creadPrec :: ReadPrec DescribeSubscribedWorkteamResponse
readList :: ReadS [DescribeSubscribedWorkteamResponse]
$creadList :: ReadS [DescribeSubscribedWorkteamResponse]
readsPrec :: Int -> ReadS DescribeSubscribedWorkteamResponse
$creadsPrec :: Int -> ReadS DescribeSubscribedWorkteamResponse
Prelude.Read, Int -> DescribeSubscribedWorkteamResponse -> ShowS
[DescribeSubscribedWorkteamResponse] -> ShowS
DescribeSubscribedWorkteamResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeSubscribedWorkteamResponse] -> ShowS
$cshowList :: [DescribeSubscribedWorkteamResponse] -> ShowS
show :: DescribeSubscribedWorkteamResponse -> String
$cshow :: DescribeSubscribedWorkteamResponse -> String
showsPrec :: Int -> DescribeSubscribedWorkteamResponse -> ShowS
$cshowsPrec :: Int -> DescribeSubscribedWorkteamResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeSubscribedWorkteamResponse x
-> DescribeSubscribedWorkteamResponse
forall x.
DescribeSubscribedWorkteamResponse
-> Rep DescribeSubscribedWorkteamResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeSubscribedWorkteamResponse x
-> DescribeSubscribedWorkteamResponse
$cfrom :: forall x.
DescribeSubscribedWorkteamResponse
-> Rep DescribeSubscribedWorkteamResponse x
Prelude.Generic)
newDescribeSubscribedWorkteamResponse ::
Prelude.Int ->
SubscribedWorkteam ->
DescribeSubscribedWorkteamResponse
newDescribeSubscribedWorkteamResponse :: Int -> SubscribedWorkteam -> DescribeSubscribedWorkteamResponse
newDescribeSubscribedWorkteamResponse
Int
pHttpStatus_
SubscribedWorkteam
pSubscribedWorkteam_ =
DescribeSubscribedWorkteamResponse'
{ $sel:httpStatus:DescribeSubscribedWorkteamResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:subscribedWorkteam:DescribeSubscribedWorkteamResponse' :: SubscribedWorkteam
subscribedWorkteam =
SubscribedWorkteam
pSubscribedWorkteam_
}
describeSubscribedWorkteamResponse_httpStatus :: Lens.Lens' DescribeSubscribedWorkteamResponse Prelude.Int
describeSubscribedWorkteamResponse_httpStatus :: Lens' DescribeSubscribedWorkteamResponse Int
describeSubscribedWorkteamResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSubscribedWorkteamResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeSubscribedWorkteamResponse' :: DescribeSubscribedWorkteamResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeSubscribedWorkteamResponse
s@DescribeSubscribedWorkteamResponse' {} Int
a -> DescribeSubscribedWorkteamResponse
s {$sel:httpStatus:DescribeSubscribedWorkteamResponse' :: Int
httpStatus = Int
a} :: DescribeSubscribedWorkteamResponse)
describeSubscribedWorkteamResponse_subscribedWorkteam :: Lens.Lens' DescribeSubscribedWorkteamResponse SubscribedWorkteam
describeSubscribedWorkteamResponse_subscribedWorkteam :: Lens' DescribeSubscribedWorkteamResponse SubscribedWorkteam
describeSubscribedWorkteamResponse_subscribedWorkteam = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSubscribedWorkteamResponse' {SubscribedWorkteam
subscribedWorkteam :: SubscribedWorkteam
$sel:subscribedWorkteam:DescribeSubscribedWorkteamResponse' :: DescribeSubscribedWorkteamResponse -> SubscribedWorkteam
subscribedWorkteam} -> SubscribedWorkteam
subscribedWorkteam) (\s :: DescribeSubscribedWorkteamResponse
s@DescribeSubscribedWorkteamResponse' {} SubscribedWorkteam
a -> DescribeSubscribedWorkteamResponse
s {$sel:subscribedWorkteam:DescribeSubscribedWorkteamResponse' :: SubscribedWorkteam
subscribedWorkteam = SubscribedWorkteam
a} :: DescribeSubscribedWorkteamResponse)
instance
Prelude.NFData
DescribeSubscribedWorkteamResponse
where
rnf :: DescribeSubscribedWorkteamResponse -> ()
rnf DescribeSubscribedWorkteamResponse' {Int
SubscribedWorkteam
subscribedWorkteam :: SubscribedWorkteam
httpStatus :: Int
$sel:subscribedWorkteam:DescribeSubscribedWorkteamResponse' :: DescribeSubscribedWorkteamResponse -> SubscribedWorkteam
$sel:httpStatus:DescribeSubscribedWorkteamResponse' :: DescribeSubscribedWorkteamResponse -> 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 SubscribedWorkteam
subscribedWorkteam